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Editorial 


Ya estamos casi todos nuevamente incorporados al trabajo. E' br_ r_:r de a piel 
tiene un último destino: el teclado del ordenador. 

Esta edición de Commodore Magazinc es algo densa en número de " s. pero 
tampoco se han olvidado las tradicionales secciones de Programa^ Car.curso. 

Por necesidades de espacio lamentamos haber tenido que posponer . '.cunda 
parte de la serie “El Misterio del BASIC", que obligatoriamente ha :er. do que 
esperar a octubre; igual que “Como diseñar juegos para ordenador . 

Una modificación, la tabla de claves para teclear correctamente los pr gramas ha 
sido ampliada notablemente, incluyéndose símbolos de utilización no mu> c emente, 
pero que es necesario conocer. 

El MusiCalc es una “hoja de trabajo para escribir, editar y reproducir mú>ica 
con el Commodore 64. A este paquete comercial le hemos dedicado una parte de la 
revista, describiendo las más importantes de sus múltiples características. Es en 
realidad una flexible herramienta de enormes recursos. Podemos decir que hemos 
disfrutado comprobando su funcionamiento. 

Continuando con la serie que trata de la otra forma de leer el Manual, para sacar 
mayor provecho al C-64, entramos con los gráficos programables desde el BASIC 
mediante PEEK y POKE. Le acompañan dos interesantes programas explicativos. 

La segunda parte del artículo sobre el diseño y utilización de los lápices ópticos 
también tiene cabida en esta ocasión. 

El montaje está destinado al Vie-20. Se trata de una ampliación de memoria de 3 
• • 

Kbvtes. de gran utilidad para poder desarrollar programas de mayor longitud. 

A quienes guste teclear encontrarán suficientes programas para llenar sus horas 
libres. 

Por último, un colaborador de Commodore Magazine nos ha remitido un 
Programa Monitor para el 64, desarrollado en BASIC, que puede ser de utilidad a 
quienes quieran iniciarse en el lenguaje máquina y no quieran gastar demasiado en la 
compra de un paquete adecuado. De cualquier manera, el segundo será más rápido y 
tendrá otras utilidades. 
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—Códigos de control_ 

para el VIG-20 y el C-64 


COMO SE VE 
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COMO SE TECLEfi 
VIC-20 V DEL 64 
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TECLAS DE FUNCION 


F1 

F2-SHIFT+F1 

F 3 

F4=SH1'FT+F3 

F5 

F6-SHIFT+F5 

F7 

F8-SHIF.T+F7 


EFECT O CONSE Gil I DO 
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GRIS OSCURO 
GRIS MEDIO 
VERDE CLARO 
AZUL CLARO 
GRIS CLARO 


CURSOR A CASA 
LIMPIA PANTALLA 
CURSOR IZQUIERDA 
CURSOR DERECHA 
CURSOR ABAJO 
CURSOR ARRIBA 
CARACTER INVERSO 
CARACTER NORMAL 
BORRAR 
INSERTAR 
























Por su diseño, el Commodore 64 es 
uno de los microordenadores actual¬ 
mente existentes que dispone de ma¬ 
yores posibilidades en la generación 
de sonidos. De hecho el ordenador se 
convierte en una herramienta para el 
aprendizaje y ejecución de música. 
Sin embargo, no es todo tan sencillo, 
en el repertorio de comandos utiliza¬ 
dos por este modelo no aparece uno 
solo capaz de generar un tono sin 
mayores dificultades. Ello obedece a 
que el chip sintetizador, controlado 
desde el microprocesador, asimila la 
información que depositemos en de¬ 
terminadas posiciones de memoria. A 
este tipo de funcionamiento se le 
llama por mapa de memoria, pues 
accediendo a cada localización se 
controla una determinada posibilidad 
del dispositivo situado tras ella. 

El chip es fabricado especialmente 
para Commodore por su firma subsi¬ 
diaria MOS Technology, que lo bau¬ 
tizó como 6581 SID (Sounci Interfacc 
Dcvice). Se trata de un auténtico 
sintetizador musical, controlado to¬ 
talmente por procedimientos digita¬ 
les. En su interior dispone de todas 
las posibilidades existentes en una 
gran mayoría de sintetizadores musi¬ 
cales disponibles en el comercio. 

La generación de los tonos iniciales 
se produce en 3 osciladores de tono, 
independientes entre sí. capaces de 
producir sonidos en la gama de 0 a 4 
KHz en cuatro formas de onda distin¬ 
tas: triangular, diente de sierra, im¬ 
pulsos de anchura variable y ruido 
blanco. Cada oscilador corresponde a 
una de las tres voces que ofrece el 
sintetizador. 

Los 3 osciladores pueden sincroni¬ 
zarse entre sí. 

Una vez producida la señal prima¬ 
ria, ésta pasa directamente a 3 modu¬ 
ladores de amplitud, uno para cada 
voz. Un modulador de amplitud no es 
otra cosa que un amplificador de 
señal al que se le puede controlar la 
ganancia mediante una segunda se¬ 
ñal. Esto no quiere decir otra cosa 
que modular el volumen instantáneo 
del tono a voluntad, bajo el control 
de una tensión eléctrica, que en nues¬ 
tro caso es producida por los 3 
generadores de envolvente. 

La identidad de un sonido es defi- 

















































MusiCalc 



nida en gran medida por la envolven¬ 
te que modula al tono. Veamos por 
ejemplo que cuando simulamos una 
explosión con la boca lo que estamos 
haciendo es producir ruido blanco y 
luego modulamos su intensidad con 
el movimiento de los labios, haciendo 
que su volumen suba desde un míni¬ 
mo a un máximo v después no lo 
anulamos, sino que disminuimos el 
volumen hasta su total extinción. 
Algo similar podríamos imaginar con 
un piano, la cuerda resulta golpeada 
de pronto, el volumen del sonido sube 
al máximo y después se mantiene 
hasta ahogarse. 

Los generadores de envolvente del 
6581 proporcionan una respuesta ex¬ 
ponencial a los datos digitales aplica¬ 
dos. Recordemos que la envolvente 
de un sintetizador (en los sonidos 
naturales la envolvente puede ser algo 
más compleja) se divide en cuatro 
partes características. El período de 
Ataque, que puede establecerse entre 
2 milisegundos v 8 segundos, es el 
tiempo empleado para aumentar la 
amplitud de la señal de audio desde 
cero al máximo. A continuación el 
Decaimiento, pues la señal no puede 
mantenerse físicamente mucho tiem¬ 
po en el máximo, cayendo hasta una 
amplitud menor que puede durar más 
tiempo, a la que se llama Sostenimien¬ 
to. El período de duración del Decai¬ 
miento puede programarse entre 6 
milisegundos y 24 segundos, que se 
combina con el Sostenimiento,del que 
podemos controlar cual será su am¬ 
plitud. Por último sólo queda la 
extinción de la señal, que puede ser 
fulminante o durar hasta otros 24 
segundos. A este último se le llama 
período de Relajación. 

Posteriormente, las señales pueden 
aplicarse bien a un filtro programable 
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o directamente al amplificador de 
salida. 

Otra de las características que per¬ 
sonalizan a los sonidos es su conteni¬ 
do en armónicos, es decir el número 
de otras frecuencias distintas a la 
fundamental que acompañan a ésta. 
La onda sinusoidal (senoidal) no se 
encuentra en la naturaleza, tiene que 
ser siempre generada electrónicamen¬ 
te. Según el teorema que en su día 




MusiCai: 


Aspecto que ofrecen el Manual y el diskette 
del Módulo 1. 

desarrolló Fourier, cualquier forma 
de onda puede ser descompuesta en 
una serie de ondas sinusoidales de 
diferente amplitud, donde la de me¬ 
nor frecuencia es la fundamental. 

Las 4 diferentes formas de onda 
generables en los 3 osciladores del 
6581 no son una excepción. Se trata 
pues de diferentes combinaciones de 
ondas senoidales. Filtrándolas se pue¬ 
de cambiar la amplitud de sus fre¬ 
cuencias, variando la presencia de los 
diferentes armónicos. 

Un filtro es un dispositivo que 
favorece el paso de una gama deter¬ 
minada de frecuencias y dificulta (o 
anula) otras. Los filtros se dividen en 


4 grupos principales: Pasa Altos, que 
sólo dejan pasar las frecuencias supe¬ 
riores a una determinada (frecuencia 
de corte); Pasa Bajos, sólo deja pasar 
las frecuencias inferiores a la de corte; 
Paso Banda, facilitan el paso de las 
frecuencias situadas en una franja 
limitada por las frecuencias de corte 
superior e inferior y el de Rendija, que 
deja pasar todo excepto una franja de 
frecuencias. El SID dispone de los 3 



Panel correspondiente al Módulo 1: Sintetizador 
y Secuenciador. 

primeros, utilizándose uno u otro por 
programación. 

El amplificador de salida es similar 
a los de modulación de amplitud, sólo 
que en este caso se establece un solo 
volumen de la señal compuesta de 
salida, no requiriendo generador de 
envolvente. 

El SID lleva además incorporados 
2 conversores A/D (analógico/digi¬ 
tal) para conectarles sendos poten¬ 
ciómetros, que actúan como joysticks 
de juegos. 

Existe otra característica casi ocul¬ 
ta, de la que el fabricante apenas 
habla. Es posible atacar el SID con 
una señal externa, por ejemplo una 
guitarra eléctrica, pero el procedí- 
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MusiCalc 


miento es delicado y podría traer 
graves deterioros en el ordenador si 
no se hace adecuadamente. En un 
artículo futuro trataremos esta posi¬ 
bilidad en Commodore Magazine. La 
señal externa puede ser filtrada y 
mezclada en el amplificador de salida. 

La firma VVaveform ha desarrolla¬ 
do un conjunto de programas que 
facilitan la utilización de las posibili¬ 
dades musicales del C-64. L1 paquete 
ha sido comercializado bajo el nom¬ 
bre de MusiCalc y es una serie de 
varios diskcites. Con él se convierte al 
ordenador en la ansiada herramienta 
para aprendizaje de música, pero 
tiene avanzadas posibilidades que lo 
convierten en un útil de composición 
musical. 

Los 3 diskcítcs principales son el 
MusiCalc 1, módulo principal que 


cuando es el momento de producir la 
siguiente nota de una melodía. Este 
secuenciador va leyendo paso a paso 
cada una de las notas previamente 
introducidas para cada una de las tres 
voces. 

La carga del Módulo 1 en el 
ordenador es tan lenta como es tradi¬ 
cional. Una vez introducido el dis- 
kcttc en la unidad correspondiente, 
necesita unos dos minutos v medio 
para cargarlo. Lo primero que apare¬ 
ce en la pantalla es el Panel, en el que 
aparece reflejado el estado de los 
distintos controles que afectan al 
sintetizador SID. 

En la parte izquierda vemos dos 
tipos diferentes de controles: los 
conmutadores v los deslizantes. Los 
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Pantalla de composición. En ella se puede selec¬ 
cionar la nota octava que corresponde a cada 
uno de los dieciséis pasos de cada fila del se¬ 
cuenciador. 

incorpora el Sintetizador y el Secuen¬ 
ciador. El Módulo 2 es llamado 
ScoreWriter (algo así como escritor 
de piezas) y el Módulo 3. Keybourd 
Maker (conformador del teclado), 
completan el trío. 

Para animarnos y observar las 
enormes posibilidades que se abren 
ante nosotros, al conjunto le acom¬ 
pañan dos di sk enes que contienen 
composiciones, uno de rock y el otro 
de ritmos africanos y latinos, pero en 
el Módulo 1 existen melodías más 
tradicionales. El Módulo 1 es el 
principal, con el que se facilita la 
utilización del 64 como Sintetizador. 
Sin embargo, hacer música no es sólo 
producir sonidos y por esto se le ha 
dotado del secuenciador, que mantiene; 
los tiempos y advierte al ordenador 



conmutadores aparecen representa¬ 
dos como un pequeño cuadrado, si es 
visible está activado. Los otros, deli- 
zantes, imitan a los potenciómetros 
utilizados en amplificadores y mesas 
de mezcla de sonido, o más bien a un 
termómetro, que suben o bajan la 
altura de su indicador. Cada una de 
las tres voces está representada en él. 
En la parte superior están los oscila¬ 
dores, donde cada forma de onda ha 
sido asociada a un conmutador. In¬ 
mediatamente debajo aparecen los 
doce controles continuos del genera¬ 
dor de envolvente, cuatro para cada 
voz. Seguidamente los controles des¬ 
tinados a establecer la anchura de los 
impulsos producidos por cada oscila¬ 
dor, cuando es seleccionada esta 
opción. 

Igualmente están representados los 



controles del filtro, las temporizacio- 
nes y los moduladores especiales. 

En el lado derecho aparece visuali¬ 
zada una rejilla en la que están 
representadas las voces en forma de 
un cuadrado que ocupa un puesto en 
la rejilla. Estos cuadrados se mueven 
a medida que el secuenciador avanza 
un paso en la composición reprodu¬ 
cida. Paralelamente al Panel existe un 
menú de opciones, al que se puede 
acceder en cualquier momento. En él 
están observados los diferentes acce¬ 
sos a la unidad de diskcítcs . bien para 
visualizar el directorio o para guardar 
y cargar composiciones. También 
permite acceder a una tercera panta¬ 
lla. que es la de composición. Los 
cambios realizados en ella nos permi¬ 
ten componer v/o editar música. 

Cuando aparece el Panel en la 
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Aspecto que ofrece una pantalla del Módulo 
Keyboard Maker. Cada cuadrado representa una 
tecla, a la que se puede programar indepen¬ 
dientemente. 


pantalla existen tres modos distintos 
de operación: Sintetizador. Composi¬ 
ciones pregrabadas y Teclado. 

En el primero podemos ajustar el 
sonido variando directamente los va¬ 
lores de los controles antes descritos. 
Con las teclas de función F1 a F7 
podemos establecer la posición de los 
controles deslizantes o la activación y 
desactivación de los conmutadores. 
Las teclas de cursor indican al orde¬ 
nador cuál de las dos cosas queremos 
hacer. La forma de acceder a uno u 
otro control es muy sencilla, a cada 
fila de teclás se le hace corresponder 
una fila de controles de la pantalla. 
Así. presionando la tecla homologa, 
podemos acceder a ese control me¬ 
diante las teclas de cursor y de 
función. El siguiente modo. Compo¬ 
siciones pregrabadas. permite repro- 
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ducir melodías almacenadas en la 
memoria. Presionando la tecla 
SHIFT y una de un grupo de 32 del 
cuerpo principal del teclado obtene¬ 
mos una melodía. Combinando una 
de esas teclas con la tecla Commodore 
conseguimos una diferente configura¬ 
ción del sintetizador. alterándose los 
controles del lado izquierdo de la 
pantalla. 

El modo Teclado convierte al C-64 
en un piano, cuando se presiona una 
tecla suena la nota correspondiente. 

Volvamos sobre la pantalla de 
composición/edición de música. En 
el lado derecho aparecen las doce 
notas correspondientes a una octava 
cromática, utilizándose la notación 
sajona para la nota: C para do, D 
para re... B para si. Debajo hay otra 


columna de números entre el cero y el 
siete, que corresponden a la octava. 
Asociadas a ellas hay una fila de 16 
rombos con la primera y 16 asteriscos 
con la segunda. Representan los 16 
pasos que podemos programar me¬ 
diante las teclas de cursor, que nos 
sitúan en la parte de arriba, para 
elegir la nota, o en la de abajo, para 
seleccionar en qué octava queremos 
situar la nota. La tecla de movimiento 
del cursor en sentido horizontal nos 
lleva a la nota siguiente o precedente, 
que aparece indicada por una cruz 
debajo, donde hacemos la misma 
operación, hasta completar las 16. 
Las teclas de función son nuevamente 
quienes sirven para ajustar nota v 
octava. Es de gran ayuda que la 
melodía que vamos componiendo se 


Es igualmente posible controlar la 
duración relativa de las notas. Por 
ejemplo, un paso sería un dieciséisavo 
de nota, dos pasos un octavo, cuatro 
pasos un cuarto, etc. 

El Módulo 2 contiene tres amplia¬ 
ciones destinadas al Módulo 1. Tra¬ 
bajan solamente con ficheros de mú¬ 
sica pregrabada. La primera permite 
obtener las partituras en una impre¬ 
sora gráfica matricial. 

La segunda posibilidad permite 
crear composiciones más largas y 
complicadas de lo que es posible sólo 
con el Módulo 1, es un “secuenciador 
de sencuencias \ 

La tercera mejora sirve para con¬ 
trolar la señal paso a paso que 
controla al secuenciador con otro C- 
64, o incluso con un dispositivo 




E\i>tc la posibilidad de afinar el ordenador 
para cae actúe en compañía de otro instrumento. 


repita una y otra vez. mientras com¬ 
ponemos y editamos. 

Como es lógico, podemos acceder a 
cada voz por separado a la hora de 
componer. 

Pero pensamos que una vez com¬ 
puesta una melodía de sólo 16 notas 
nos quedamos cortos. La respuesta es 
que podemos componer otro bloque 
y unirlo al anterior. De vuelta al 
Panel vemos que la rejilla dispone de 

15 filas. Pues bien, a cada illa le 
hacemos corresponder un bloque de 

16 notas. Así podemos utilizar para 
hacer que una composición se repita 
sucesivamente o encadenar varias paí 
sucesivamente o encadenar varias pa¬ 
ra una melodía larga, sin repeticiones. 


externo. 

Finalmente, el Módulo 3 es el 
Conformador del teclado. Permite 
configurar el teclado de la forma más 
cómoda para nuestras necesidades de 
ejecución. Es posible elegir entre 80 
escalas diferentes previamente pro¬ 
gramadas en este diskette , trabajando 
con el Módulo 1. 

En un principio no es fácil memori- 
zar todas las posibilidades que ofrece 
el MusiCalc, pero el manual (en inglés 
por ahora) siempre tiene la respuesta, 
mejor el ejemplo, adecuado para salir 
del paso. Cuando se alcanza un cierto 
dominio en el manejo, el ordenador 
pasa a convertirse en algo de extrema 
utilidad musical. 
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Programa monitor para 


Siempre resulta útil disponer de 
programas de utilidad que nos ayu¬ 
den a perfeccionar nuestra programa¬ 
ción. Cuando queremos emplear el 
lenguaje máquina la cosa se hace más 
tediosa. Con este programa ganamos 
diversas posibilidades. No obstante, 
su ejecución resulta un poco lenta, 
por haber sido desarrollado en BA¬ 
SIC, pero su utilidad es totalmente 
vigente y, sobre todo, resulta mucho 
más didáctico el análisis de su meca¬ 
nismo de funcionamiento. 


MONITOR 

Este programa es un Monitor para 
el CBM-64. El MON64 permite ver el 
contenido de la memoria, cambiarla 
(para hacer programas en código 
máquina), desensamblar los progra¬ 


mas en C.M., grabarlos en cinta o 
diskette, ejecutarlos y cargar nuevos 
programas de una cinta o diskette . 

En las líneas 100-200 está en menú 
de opciones que son: 

1. ENSAMBLADOR: Esta op¬ 
ción permite variar el contenido de la 
memoria utilizando valores hexade- 
cimales o decimales. Para escribir 
programas en código máquina no 
tenemos más que indicar la dirección 
de inicio y a continuación los códigos 
a introducir. 

La ventaja de este programa reside 
en que no hay que introducir los 
datos uno a uno, sino que se pueden 
dar varios valores en una misma 
línea, separándolos por un espacio 
(vigilando que en hexadecimal cada 
byte conste de DOS símbolos: OF, 
A3, 02). 

Por ejemplo, imaginémonos que 
queremos introducir el siguiente pro¬ 
grama: 


C00O LD A -S04 

C002 JSR -FFC0 

La pantalla quedaría como sigue 
(ver fig. 1 Zr.'P-rs ce pedirnos la 
dirección ce n:::: '..nos introdu¬ 
ciendo ios p nemos M para 

volver al mere 

2. GRABAR C. NI.: E^ta opción 
graba (SAVEi en e r :_ ei programa 
realizado con ENSAMBLADOR o 
también cuakfoier zona de la memo¬ 
ria. Sólo hemos de indicar la direc¬ 
ción de inicio fina’. 

El nombre del programa será el 
siguiente: 

“CM" + *‘S“ (sólo el modo Hex.) + 

DIR. INICIO 

Si utilizas disco o quieres ver cómo 
funciona mira la explicación de la 
subrutina "400. 

3. RGAR C.M.: Con esta ruti¬ 
na podemos cargar LOAD) cual¬ 
quier programa (en CAL o borraría 


p T* T* *T* *T» 


0 __.. 

1 REM**** MONITOR ********** 

2 REM****<C> J.L. DE F'RñT ********** 

3 REM**** VI-1384 ********** 

4 

5 HX$="0123456789RBCDEF" 

6 DIMVÍC80) , V<80), M$C152.. 2>, M< 152) 

7 F’R I NT " m«M ESPERE. " 

8 ÜOSUB8500 

9 GOTO 100 

10 PRINT'TJ" 

20 PRINT" *** ENSRHBLfiDOR ***" 

25 GÜSUB7000 

40 PRINT"MJflDIR. INICIO?" 

50 INF'UTD I R$ : IFDIR*="" THEH GOTO50 

51 I FHX=1THENH$=DIR$ ; ER=0:GOSUB5000 ; DIR=D : G0T053 

52 DIR-v'ñL(DIRf ) 

53 PRINT : IDIR=DIR 
55 I FER= 1TFIENG0T040 

60 V$=" " : PRINTDIR$; : INPUTVf : IF'v'$=" "THENGOTO60 

64 IF V$= "FIN " QRV$= " M " TFiEN FD I R=D IR : RETURN 

65 GOSUB4500 

70 IF ER=1THEN PRINT"ERROR" 
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80 GOT060 

100 rem««#«««pagina menu#««««««««««# 

105 PRINT”:] ” 

110 PRINT” ««« MENU INICIRL «««” 

115 PRÍNT ,, MÉ*MÍ»I1. ENSAMBLADOR 11 

120 PR1 NT 11 ftíMMK?. GRABAR C.M.” 

13© PRINT”IVBÉÍÍI3. CARGAR C.M. u 

140 PRI NT 11 liiüitt. VOLCADO" 

150 PRINT“ÜiiiiiC. EJECUTAR C.M. ” 

155 PR I NT " I«iüil5. MNEMONICOS" 

160 PRINT ,, IÍ»Ü»F. FIN“ 

170 PR I NT 11 BD9QPCION? ” 

180 INPUT OP 

190 ON OP GÜSUB10,300,450,680,800,900,200 

195 GOTO100 

200 END 

300 rem «««grabar«««««««««««««««««««««« 

310 CM-IDIR : AC-FBIR 

320 PRINT"Sín ««GRABAR C.M#*" 

330 GOSUB7000 

348 GOSUB7100 

362 IFA$=“M"THEN 390 

379 IF .HX«1THEN IN*« ,I $ ,, + IN« 

380 A$=”CM“+I m •L-LEN(A $>■ GOSUB8200 

382 LO=0 : GOSUB7400 

385 IF ERR=1THEN308 

390 GQSUB7500 

400 RETURN 

450 REM«««««««CARGA«««««««««««««««««««« 

460 PRINT"n ” 

470 PRINT” «««« CARGAR C.M. «**«” 

475 GOSÜB7000 

480 A$~”” : INPUT”«NOMBRE RUTINA C. M. ”; A$•’ GÜSUB8200 

490 INPUT”WíWDIRECCION DE CARGA”;D$ : IFHX=0THENGÜTO497 

495 H$=D$•GOSUB5000 : DC=D:GOTQ500 

497 DC=VALCD$> 

500 LQ=1 : GO3UB7400 

510 IF ERRalTHEN GOTO450 

520 GOSUB7500 

530 RETURN 

600 REM«««VQLCADO«««««««««««««««««««««« 

605 CM=IDIR : AC=FDIR 

610 PRINT "IT 

615 PRINT” ««««VOLCADO DE *MEMÜRIA««««" 

620 GOSUB7000 

630 GOSUB7100 

640 GOSUB7300 

680 IFA$=”M”THEN 770 

700 PRINT”XPULSA 'RETURN' PARA ACABAR” 

701 PRINT"0 LA BARRA PARA PARAR. MHM" 
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705 FORME-CM Tü RC 

71Ü IFHX 35 1 THENB-ME •' GOSUB5500 : P$=H$ : fiOTO720 
715 P$=STR$7ME> 

720 PRINTP$;" 

738 C=PEEK 7ME > : IFHX-1THEND-C ; GOSUB5500 : C$-H$ : GGTÜ740 
735 C$~STR$ 7 C 
740 PRINTC* 

745 GETR$ : IFfi$=CHR$<13>THENME=AC 

746 IFPEEK<197>=60THENGQTQ746 
750 NEXT 

760 PRINT#1•GLOSE1 : GOSUB75«0 
770 RETURN 

800 REM SEJECUCIONSS$$$$SSS$$S$$ 

805 CM-IBIR 

810 PR.INT H 3M SS EJECUCION SS" 

815 GOSUB7000:H=CM•GOSUB5500 : IN$=HÍ 
820 PRINT"MDIR. INICIO- M jCM, n $" ;IN* 

830 INPUT"DIRECCION DE LLAMADA" ; LL$: IF HX=1THENH$=LL$ : GOSUB5000 : LL=D •' G0T0848 
835 LL-VftL7LL$ >:B-LL•GOSUB5500 : LL$=H$ 

840 PRINT"«LLAMADA <SVS> • "LL, "$'S LL$ 

850 PRINT"«PULSA 'RETURN" PARA EJECUTAR EL C.M” 

860 GETñí: IFfi$OCHR$7 13>ANDASO"M" THEN868 

861 IFR$=“M"THEN890 
870 SVS LL 

875 GOSUB7500 
890 RETURN 

900 REMSSMNLMQN I COSSSSSSS****** 

910 PRINT"GT 

915 PR I NT" SfcMNEMQN ICOS#S" 

918 CM=IDIR : RC=FDIR 

920 GOSUB7000 

930 G0SUB7100 

940 GOSUB7300 

950 JH=CM : PRINT:PRINT 

960 IF HX-1THEN D=JH:GOSUB5500*JH*=H$ :G0T0965 
962 JH$=STR$(JH> 

965 D=PEEK7JH):GOSUB5500:JM$=H$•GOSUB8000 
970 IF VL=0THENMN$= M ??? 11 : BV$= " " : GOTO 1010 
990 MN$=M$ ( VL, 1 > • BV=M 7 VL ) -1 : BV$~ " ,! 

995 IFBV»0THEN1010 

1000 FQRL= 1TGBV : Ü-F’EEK (JH+L > • GOSUB5500 : BV$=H$+BV$ : NEXT 
1005 Bt$= u $"+BV$ : IF CH-4RNDRI6 HT $ 7MN$, 1) = M 11“THEN1108 
1810 PRINTJH$,MN$;BV$ 

1020 JH=JH+BV+1 

1025 IFPEEK 7197 >=60THEN1025 

1026 IFPEEK7197)=1THEN1048 
1030 IF JHOAGTHEN960 

1040 PR I NT# 1 : GLOSE 1 •' GOSUB7500 
1060 RETURN 

1100 REM S IMPRESORAS 

1110 L=LENCMN$ ) • IFRI GHT$ ( MN$, 1 ) = “ll" THENMN$=LEFT$ 7 MN$, L-1 ) : GOTO 1110 
1120 F-3•IF MI m 7MN$,4,1)="7“THENF=4 
1130 M1$=LEFT$7 MN$,F.) •M2$=RIGHT $ 7 MN$,F-1> 

1140 PRINTJH$,M1$;BV$;M2$ 

1150 GOTO1020 
4000 END 

4500 REM SS&SEPARAR CÜDIGQSSSSS 
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el 64 


al Monitor). Para ello hemos de dar el 
nombre del programa (no es necesa¬ 
rio si se trabaja con cinta) y la 
dirección de inicio de carga (omitir en 
caso de que se quiera cargar en la 
misma dirección que estaba al gra¬ 
barlo). 

4. VOLCADO: Nos muestra el 
contenido de la memoria en valores 
decimales o hexadecimales. 

5; EJECUTAR C.M.: Con esta 
opción podemos ejecutar (SYS) el 
programa en C.M. residente en me¬ 
moria sin más que dar la dirección de 
[ j ^ j-yj d a 

6. MNEMONICOS: Es quizá la 
parte más interesante del programa. 
Permite desensamblar cualquier zona 
de la memoria. Los códigos mnemó- 
nicos están en sentencias DATA, que 
son leídas al principio del programa. 

EXPLICACION DEL PROGRAMA 

Cada subrutina está conveniente¬ 


mente indicada por un REM, con lo 
que su comprensión se hace más fácil; 
de todos modos paso a explicar las 
que considero más importantes. 

— Las subrutinas de las distintas 
opciones ocupan de las líneas 10 a 
4.000. No las explico paso a paso, 
pues son lo suficientemente claras. 

— Sub. 4500-4900: Se encarga al 
trabajar con el ensamblador de sepa¬ 
rar todos los valores que se hayan 
tecleado, indicar si hay error y PO- 
KEarlos en las zonas correspondien¬ 
tes de la memoria. La Sub. 6000-6060 
se encarga de hacer lo mismo para los 
valores decimales. 

— Subs. 5000-5060 y 5500-5550: 
Se encargan de traducir los números 
de hexadecimal a decimal y decimal a 
hexadecimal, respectivamente. 

— Sub. 7400-7470: Esta rutina rea¬ 
liza las operaciones de LOAD y 
SAVE de programas en C.M. Para 
poder cargar y grabar fácilmente los 


programas he utilizado las rutinas del 
KERNAL. La primera rutina 
(SETLFS) se encarga de abrir el 
periférico. En caso de que se quiera 
utilizar el disco habría que poner 
(línea 7405): POKE 781,8 (en vez del 
POKE 781,1). 

La siguiente rutina (SETNAM) 
controla el nombre del programa; 
este nombre se coloca en código 
ASCII a partir de la posición 1024 
(memoria de pantalla). Luego se pro¬ 
cede a llamar a SAVE o LOAD según 
la opción escogida, cargando el acu¬ 
mulador y los registros X,Y con los 
valores apropiados. 

Al pasar el programa hay que tener 
cuidado con las líneas marcadas, pues 
al sobrepasar los 80 caracteres hay 
que teclear las instrucciones en su 
forma abreviada. 

EJECUCION DEL PROGRAMA 

Al ejecutar el programa se cargan 


TODAVIA NO TIENE UD. UN C0MM0D0RE-64? 



FACILIDADES 
DE PAGO 
FINANCIACION: 
De 6 a 30 meses 
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PARA COMPLETAR SU EQUIPO CON LOS MEJORES COMPLEMENTOS Y PROGRAMAS 
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4505 

4510 

4520 

■1 cr •-» cr 

4530 

4540 

4550 

4570 

4530 

4590 

4595 

4600 

4610 

4615 

4620 

4630 

4640 

4900 

5000 




M II 


RNBJCN 1 -1THEN ER~ 1 : J=N 1: GOTO-5"-? 


5 


5020 

5030 

5035 

5040 

5050 

5060 

5500 

5505 

5510 

cr i~ ir. 

C*' C* * 11 * ii 

jJOU 


ere; 


cr cr .1 cr 

cr te cr 
.j.j.jtll 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

706161 

7005 

7010 

7020 


7100 
7110 
7120 
7130 
7140 
7150 
7160 
7165 
7170 
7180 


ER-0 

N1=LENCVS> 

IFLEFT*<V*,1> = n "THENV$=RIGHT$<V*,NI-1>:GGTÜ4510 
IF HXs0THEN GOSUB6000:GÜTÜ4590 
FORJ=1T OH1 SIEPS 

V$ C J > =M I B$ C V$, J, 2 > • IFMI B$ ( V$, J+2, 1 > < 

H$=V$CJ>*UOSUB5000•V<J>=B:Ü0T0457© 

NEXT 

CB-INT <H1/3+.5 > 

IF ER-1THEN 4900 
K-l 

FORJalTOCD 
F'ÜKE BIR.. V »• K > 

K=K+3 : BIR~DIR+1 
NEXTJ 

IF HX=1THEN D=DIR•GÜSUB5500 ; BIR$=H$:GOTO4300 
BIR$-STR$(BIR > 

RETURN 

REM ***HEX R BEC**M*#*$******* 

D=0 : N--LEN(H$ > : IFM<2THEN ER=1 : RETURN 
FORI=NTO1STEP-1 

ñ$=MID$<H$, I.. 1) : H=fiSC<fl$> ; R==Fi-~48 : IFfi>16THENfl«fl-7 
IFR<0ÜRR>15THEN ER=1:1=1:GOTG5050 
D^B+ñ# 16 T< N-1 > 

NEXT 

RETURN 

rem ***dec r HExmmmwmmmm 
11,1 

C= I NT B/16 > 

R=B-í6#C+l 

H$-M I B$ < HK $.. R.. 1 > +m 

IF CO0THEN B~C ; uuTÜ5510 ' 

IFLEN H$) <2THENH$= M 0 " +HT 
RETURN 

REM *$$SEF‘■ CGB. DECIMñL#$ 

J-Q:1 : K=1 ’ . 

J=J +1 : I FM I D$< V$, J , 1 > 0 11 " RNBJCN1THENGOTÜ6620 
V< W> =VRL<MI B$< V$, K.« J-K+1 > > •' IFV< W>>255ÜRVC W><0THEN ER=1 : RETURN 
IF JCN1 THENW=W+3 : K=J • GOTO6020 
CB=INT<W/3> + l' 

RETURN 

REM 

HX=0 : PRI NT " MSHHEXRBECIMRL Ü 3DDSECIMRL? n 
GETR$ : IFR$<> “ H" RNBRÍO “ B" THEN7010 
IFR$="H M THEN HX~1 
RETURN 

REmmm bir. inic - fin******** 

PRINT" m¡L 11RECCIGN INICIO- " J : IF HX= 1THENDCM • GGSUB5500 ; IN$=H$ 60 “G" 1 3* 
I N$=STR$ CM > 

PRINTIN$ 

PRI NT"BIRECCIGN FINRL : 11 ; : IF HX= 1 THEN D=RC : GOSUB5500 • FIN$=H$ GOT" ~ * 67i 
FIN$=STR$<RC> 

PRINTFIN$ 

I FCM<0ORftC>655350RfiCCCMTHENF’R I NT" TERROR. " : GOTO? 190 
F‘R I NT “ «CORRECTO? ( S/N) H 

GETR$ : I Fft$0 “ S" RNBR$0 “ N" RNBR$<>" M " THEHG0T07180 
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7185 
7130 
10 

7200 

7210 

7220 

7300 

7310 

7320 

7325 

7330 

7340 

7350 

7400 

7402 

7405 

7410 

7415 

7420 


7435 

7440 

7450 

7460 

7470 

7500 

7510 

7520 

7530 

3000 

3005 
8010 
8020 
8030 
8040 
8200 
8202 
8205 
8210 
8230 
8500 
8510 
8520 
8530 
8333 
3000 
3002 
3004 

3006 
3008 
3010 
3012 
3014 
3016 
3018 
3020 


IFñ$="S M ÜRñ$~"M"THEN 7220 

INPUT" INICIO " ; CM$ •• IHF'UT " FI NAL" , AC$: IFHX= 0 THENCM=VAL< CM$ > : AC=VAL ( AC$> : GOTO? 

H$=CM$ = GOSUB 5000 : CM=B : Flf=AC$ : GOSUB 5000 •' AC=B 

GOTO ?110 

RETURN 

REM*****#SflL. IMPRESORA********* 

F’R I NT " SfiL I Dñ I MF'RESORA? í S/N > " 

GETAÍ : IFAÍ="S"THEN CH= 4 :GOTO 7340 

IFA$="N"THENCH= 3 =GOTO 7340 

GOTG 7320 

OF'EN 1 , CH : CMB 1 

RETURN 

REM***LOABXSAVE***************** 

F'R I NT" I” : SA =0 •• ERR= 0 : 1 F LO= 0 OR < LO= 1 ANBBC =0 ) THENSA= 1 

POKE 780 , 1 :P 0 KE 781 , 1 : PÜKE 782 ,SA:SVS< 654663 : REM SETLFS 

FOKE 780 .. L : P 0 KE 781 , 0 : P 0 KE 782,4 : SVS< 65463 ) : REM SETNAM <* 0480 -NQM£RE) 

IF LQ= 1 THEN ?440 

P 0 KE 251 ,CI 1 - 256 *INT <CM /256 ) ; PQKE 252,1 NT(CM /256 ):REM PAG 0 . INÍC.GRAB. 
POKE 780 , 251 :P 0 KE 781 ,FIC- 256 *INT <AC/ 256 )=P 0 KE 782,1 NT <AC/ 256 ):SVS (65496 > 

GOTO ?460 

Cl- 0 : C 2 = 0 : IFSA= 0 THENC 2 = INTCBC/ 256 ) •’C 1 =BC- 256 *C 2 
FQKE 780 , 0 : P 0 KE 781 , C 1 : P 0 K.E 782 , C 2 : SVS 65493 

IFPEEK ( 780 ) O 0 OR STO 0 THENPRI NT" ERROR!!!!": FORI = 1 TO 3500 : NEXT : ERF -1 
F'R I NT " 13 " : RETURN 

REM H(íK*#*í|í**PAUSA***»******** 3 )í* 

PRINT"M PULSA ' C ' PARA CONTINUAR" 

GETA$:IFA$<>"C"THEN 7520 
RETURN 

REM**#ERROR MNEMO?***#*******#** 

VL =0 

F 0 RX= 1 T 0151 

VL=-X#<CX, 2)3 : 1 FVLTHEHX= 151 

NEXT 

RETURN 

REM#*#ñ$-ASc 11 
L=LEN(A$> 

IFA$=""THEN 8230 

F 0 RJ= 1 T 0 L:A=ASC <MIB$ <A$,J, 1 )):POKE 1023 +J,A:P 0 KE 55295 +J• 6 •NEXT 

F'R I NT" SftlüMíl"; : RETURN 

F 0 RI= 1 T 0151 

READ M$(Ll),t' 1 $(L 2 ),M(I) 

NEXT 

RETURN . 

REM*****#*#*BATASjtí***»*»***#if mm * 

BATA ABC#, 69 , 2 ,ABC, 65 , 2 ,"ABC ,XI 

BATA "ABC , Xlllllllll", 7 B, 3 , "ABC 

BATA" ABC < , X ) 11111111 " , 61 , 2 ," ABC < 

DAT A - 6 HB# , 29,2 , ANB, 25 , 2 ," ANB , XI 

BATA "ANB - ,XIIIHIIH", 3 B, 3 , "ANB 

BATA " ANB < , X ) , 21 , 2 ," ANB < 

BATAASL A, 0 A, 1 , ASL, 06 , 2 , "ASL , XIIUUI", 16 , 2 , ASL, 0 E, 3 

BATA "ASL ,Xlllllllll", 1 E, 3 ,BCC, 90 , 2 ,BCS,B 0 , 2 ,BEQ,F 0 , 2 ,BIT, 24,2 

BATA BIT, 2 C, 3 ,BMI, 30 , 2 ,ENE,B 0 , 2 ,BPL, 10 , 2 ,BRK, 00 , 1 ,BVC, 50 , 2 .EVA, 70,2 
BATA CLC, 18 , 1 ,CLB,B 8 , 1 ,CLI, 58 , 1 ,CLV,B 8 , 1 ,CMP#,C 9 , 2 ,CMP,C 5,2 
BATA"CMP , Xlllllll", B 5 , 2 , CMP, CB, 3 ," CMP , Xlllllllll", BB, 3 


o 

el 


> V 


,, ,75,2,ñnc:,6n,3 

“.. 73,3 

11 i 71 

“ .• 35 ^ 2 .• RHD2D i» 3 

oq • i» 

i .* O 


), V 


, V 


J T 


II •“> 4 
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9@22 

9024 

9026 

9023 

9030 

9032 

9034 

9036 

9038 

9049 


BflTfl" CMP Vlllllllli" , D9 ,3, " CI'IP < X > Illlllll , U1,2 

BflTfl "CMP < ), VIIIIIRII" ,B1,2, CPX# ,E0 , 2, CPX , E4,2.. CPX > EU, 3 

BflTfi CPV# ■ C0 • 2 . CF'V .• C4.. 2 .• CF’V.. CC , 3 , BEC , C6 , 2 , " BEC , XIIIINI", B6, 2 

BflTfl BEC, CE, 3, ” BEC , XMHUMI" - DE, 3, BEX, Cfl, 1, DE V.. 88,1 

BflTfl EÑE#. 49.. 2.. EOF: , 45, 2 ," EOF: .• XMHMI" > 55.■ 2, EUR .• 4B, 3 

BflTfl "ÉOR , XIIHIIMII" , 5B, 3, " EOF: , VIIIHIIII" , 59,3 

BflTfl " EÑR < , X :> 1HIHHBCI ,41,2.." EOF: < > , Vllllllll" ,51,2 

BflTfl INC, E6,2, "INC , Xlllllil", F6,2, INC,EE,3, "INC . _ _, XWHIMil" , F E, 8 

BflTfl INX. Eñ . 1 .1HV, C8,1, JMP, 4C, 3, " JMP< >, 6C, 3, J3R, 20,3 

DflTñLBfl# ■ m,2, LBfl, fl5,2, "LBfl ,Xlllllil", B5,2, LDfl, flD, 3, "LDfl , Xllllllll" 

BflTfl BD • 3 . " LBfl , VMUUUr B9, 3, " LBfl ( , X > ■■■■■■■ I" , H1,2 

BflTfl "LBfl< ), VIIIHH1II", B1,2, LBX#, fl2,2, LBX, fl6,2,"LBX VIIIIIH" , Bu, 2 

DñTfiLÜX, FIE, 3, " LBX , Vlllllllli" , BE, 3 

BflTfl LDV#, fl8,2, LDV, R4,2, " LBV , XIIIHII", B4, 2, LBV, fie, 3 _ _ „ 

BflTfl "LDV ,Xlllllllll",BC,3,LSR fl,4fl, 1,L3R,46,2, "LSR ,Xlllllil ,56,2 


X 


II 


C-C -j 

> -i C. .< 


X 


.,3," 


, V 


II 


3046 
9048 

9050 

9052 DATA LSR,4E,3,"LSR 

9054 BATANOP,EA,1,ORA#,09,2,ORA,05,2,"ORA 
9056 BATA" ORA , Xlllllllll", 1D 

III" 

9058 

9060 

II" 

9061 __ _ .. 

_ .... . , Xlllllil", 76,2, ROR, 6E, 3," ROR 

9063 fitf 


", 15,2,ORA,0B,3 
lili", 19,3, "0RA( 


y \ 

t ."* 1 ) 


DATA 01,2,"ORAí >, VIlllllll", 11,2,F'HA,48,1, PHP,08,1,F’Lfl,68,1,PLF', 28,1 

BATAROL fl,2A,1,ROL,26,2,"ROL ,Xlllllil",36,2,ROL,2E,3,"ROL , X 


XII 


II 


DATA 3E,3,ROR A 

DATA6A,1,ROR,66,2,"ROR , Xlllll 

DATflRTI’40,1,RTS,60,1,SBC#,E9,2,SBC,E5,2,"SBC ,Xlllllil" ,F5,2,SBC,EB,3 


9066 BATA"SBC 


",FD,3,“SBC 


, T 


II 


||",F9,3, "SBCC 


Illlllll 


9068 

9070 

9072 

II" 

9074 

9076 

9078 


DATA E1,2,"SBC< ),Vllllllll",F1,2,SEC,38,1,SED,F8,1,SEI, < 8,1,STA,85,2 

BATA" STA , Xlllllil" ,95,2, STA, 8D, 3," STA , Xlllllllll", 9B, 3 

DATA"STFI ■ Vlllllllli", 99,3, "STflC X>IIIIIIH" ,31,2, “STH(. >, t 


BATA 91 , 2 , STX, 86, 2 , " STX , Vlllllll" , 96 , 2, STX, SE, 3 , STV, 84, 2 

BflTA"STV ,Xlllllil",94,2, STV,8C,3,TAX,AA,1, TAV,AS,1,TSX,Bfl,1 

BflTfl TXfl,8fl,1,TXS,9fl,1,TVfl,98,1 
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los códigos mnemónicos. Antes de 
empezar a trabajar con cualquier 
opción habrá que indicar si trabaja¬ 
remos en hexadecimal o decimal; a 
continuación el ordenador nos dará, 
en caso necesario, las direcciones de 


inicio y fin que corresponden a las 
posiciones primera y última al traba¬ 
jar en ENSAMBLADOR (que serán 
cero en caso de no haber hecho 
ningún programa). En las opciones de 
volcado en pantalla se permite reali¬ 


zar dicho vuelco en una impresora 
preguntándose la opción escogida. En 
todos los casos se vuelve al menú par 
abortar la opción, pulsando la “M’\ 

José Luis de Prat 
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Dani Horcajada y Rubén Horca ja¬ 
da son los autores de este programa 
educativo llamado GEOGRAFIA. El 
programa es un cuestionario de geo¬ 
grafía que va planteando una tras 
otra una serie de preguntas que hay 
que responder. El programa realiza 
un total de 21 preguntas, divididas en 
cuatro grupos diferentes. Los tres 
primeros grupos constan de cuatro 
preguntas cada uno mientras que el 
grupo cuatro está formado por nueve 


preguntas. El programa es un ejemplo 
de la importante ayuda que un orde¬ 
nador, bien programado, puede su¬ 
ministrar tanto a los estudiantes co¬ 
mo a los ‘'enseñantes" de cualquier 
materia. Además, la estructura de 
este progrma lo hace ideal para 
aprender listas de nombres de me¬ 
moria, ya que cuando se comete un 
error, el programa obliga a empezar 
desde el principio. También es un 
claro ejemplo de cómo el color, los 


gráficos y el sonido pueden ser una 
útil herramienta que haga mucho más 
llevadero el tener que aprenderse 
algún “rollo". Por último, cabe des¬ 
tacar que la sencilla estructura del 
programa hace de él, como dicen sus 
autores, un progrma abierto, fácil de 
modificar, y que cada uno podrá 
adaptar con toda sencillez a sus 
necesidades particulares. 


10 

20 
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24 
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print !, :i m 

R 0 K E53280, 8 : P 0 K E53281 , 0 

print"ímt i a 

F'R I NT" ¡3 1 .ama 1 ¿| 1 . a ir d 1 a « 

RRiHT M ^a y a i ^a w ^a w a a ■ a m a 

pe i ni"" 

PRINT"íñPRÜGR AMA IDEftDÜ V REALIZADO POR:" 

PRINTTAE < 23 > 11 KIDANI HORCAJADA " 

PR I NT" íiUSJGRAF ICÜS, COLOR V SON I DO POR : " 

PR I NTTAE < 23)" JIJEEN HORCAJADA" 

PR I NT" 

PR I NTTAE10 > " «PEQUEÑAS INSTRUCCIONES " 

PRINT n BEWTGDO CONSISTE EN ADIVINAR EL NOMBRE" 

PRINT"CORRECTO DE LA CAPITAL DEL PAIS" 

PRINT"QUE SE OS PIDE..." 

PRINT"«SUERTE!!i...V AL LORO!!!" 

VV=212*256 
POKEVV+24,15 
F'OKEW+5, 3+16 
P 0 K E V V+6O 
REM BUCLE PRINCIPAL 
READ F,N 

IF F-0 THENP0KE VV+24 .• 0 : G0T0 84 
FF=16*F 

POKE VV+1, FF7256 
POKE'vV, < FF-32768) AND 
T=TI+i8*N 
POKEVV+4,17 
IF TKT THEN53 
POKE VV+4,0 
¡jijT U 44 
DATA 287,2 
DATA 384,2 
D H T rí -2' o 4, i=l 
DATA 3o4,2 
DATA 384,1 
DATA 483,3 
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La revista imprescindible para todo el usuario de 

Ordenadores COMMODORE 





Aproveche ahora esta irrepetible oportunidad para 
suscribirse a COMMODORE MAGAZINE. Envié 
HOY MISMO la tarjeta adjunta, que no necesita sobre 
ni franqueo. Deposítela en el buzón más cercano. 
Inmediatamente recibirá su primer ejemplar 
de COMMODORE MAGAZINE y así durante un año 
(12 ejemplares). 


commodore 

M rjjjn 7.Jn p 


Bravo Murillo, 377. 
Tel. 733 96 62 

28020 - Madrid 
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DATA 

b o 4 

So 

.ü A T H 

o ó 4 

64 

DAT H 

431 

65 

DATA 

4 o 1 

i4* tj 

DiH TA 

4 o i 

!j i’ 

Dri ! H 

43 i 


Dn ! Fi 

— .t .***, 

O i 

&? 

DA T F¡ 

.* .***. ✓ 

4 o i 

— i ,*“# 

f - ¿i 

DA ¡ ri 

*4* o 

71 

DATA 

40 i 

"T ***** 

t cL 

DATA 

384 

•—r 

!* 

DATA 

«** •**!• 
K 1 .. K.l 


«I ■ II 


34 FR í NTIT : PGKE332S 1,0: POKE532S0, 6 

85 FRIN'i TRB < 8 > 51 UF¡L ES LR CRPITRL Bt 

86 FR IHITRBT 7 > "" 

87 PRI NT !l EWRECUERBn : InPULSFí RETURN DESPUES DE CADA" 

83 PR i NT" RESPUESTA. ¿W. " 

93 PR i NT" \*Xm. . . ALBAN I ñ? " 

94 INPUT m 

95 IF ñ$-"TI RAÑA" THEN PRINT "INCORRECTO" 

9 6 IF ñ $ -v > 1 ’ i IR R N h 1 ' T H E N P RIN ¡ ' ’ ■ ^ IN ü ü R R E C T U .■ E 8 i IR ñ N R" : U U i o 1 tí tí tí 6 
99 PR I NT" MWil. . „ VUGOSLRVIA ? " 

180 INPUT B* 

lltí IF B$="BELGRADO"THEN PRINT "INCORRECTO" 

128 IF B$0"BELGRfiDO"THEN PRINT "TSIINCORRECTÜ, ES BELGRADO" : GOTO 18808 
130 PR I NT ” KM Í3. . . REP. SUDRFRICANA? 11 
140 INPUT C$ 

158 IF C$="CIUDAD DE EL CABO" THEN PRINT "INCORRECTO" 

160 IFC$<> "CIUDAD DE EL CABO "THEN PRINT "INCORRECTO, ES CIUDAD LE EL C-BÜ 
000 

170 PR I NT M mR. . . GRECI A? " 

188.INPUT m 

190 IF D$-" ATENAS" THEN PRINT "INCORRECTO" 

200 IF DIO"ATENAS"THEN PRINT "^INCORRECTO, ES ATENAS" ; GOTO 10088 
2tí5 PRINT"M8aSIGO PREGUNTANDO." 

206 PRINT"*tiCUAL ES LA CAPITAL DE...?" 

210 PR I NT " XURiI. . . ALEMAN IA OCC. ?" 


GO T 010 
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230 
240 
250 
268 
270 
280 
230 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 


500 
510 
520 
530 
540 
550 
600 
610 
620 
630 




650 
660 
665 
678 
680 
690 
700 
780 
790 
800 
810 
820 n 
830 
840 
850 

-I r*. 


INPUT ET 

IF E$="BONN" THEN PRI NT "INCORRECTO" 

IF E$<> " BONN ,! THEN F’R I NT " rail NCORRECTO, ES BONN ,! • GOTO 10000 
PRINT"WWRJ. « . HUNGRIA?" 

INPUT FT 

IF FT="BUDAPEST" THEN FRINT "INCORRECTO" 

IF FTO" BUDAPEST " THEN FRI NT " rali NCORRECTO, ES BUDñPEST " • GOTO 10000 
PRINT ,, WWíl- . .CAMERUN?" 

INFUT GT 

IF GT="VADUNDE" THEN PRI NT "NCORRECTO" 

IF G$0 " VAOUNDE " THEN FR I NT" rail NCORRECTO, ES VfiOUNDE " : GOTO 10000 
FR I NT " . . NUEVA ZELANDA? " 

INFUT ht 

IF HT="WELLINGTON"THEN FRINT" NCORRECTO" 

IF H$O n WELLINGTON"THEN FRINT WI NCORRECTO, ES WELLINGTON" : GOTO 10000 
FRINT "WM^DOMO VEREIS VC NO ME CANSO V..." 

FR I NT" ilS IGO PREGUNTANDO! ! ! " 

FRINT"MíiCURL ES LA CAPITAL DE. . .?" 

FRINT"3fl»n. . . IBLANDIR?" 

INFUT IT 

IF I$="REVKJAVIK"THEN FRINT"^CORRECTO" 

IF ITO"REVKJAVIK"THEN FRINT" m NCORRECTO,ES REVKJAVIK":GOTO10000 
FR I NT" m li. . . AFGANISTAN? " 

INPUTF$ 

IF F$="KABUL"THEN FRINT"NCORRECTO" 

IF F$C> “ KABUL" THEN FR I NT" rail NCORRECTO, ES KABUL" : GOTO 10000 
PRINT":«W¡1. - .HONDURAS?" 

INFUT G$ 

IF GT- ,! TEGUCIGALFA" THEN FR I NT "INCORRECTO" 

IF GTO" TEGUC I GALFA"THEN FR I NT " ¡aQ NCORRECTO, ES TEGUCI GALEA" • GOTO 10000 
FRINT"WW¡1. . „AUSTRALIA?" 

INFUT HT 

IF H$="CANBERRA"THEN FRINT" NCORRECTO" 

IF H$0" CANBERRA " THEN FR I NT " rali NCORRECTO, ES CANBERRA" : GOTO 10000 
F’RINT"íMtSI HABEIS SUPERADO VA LOS TRES APARTA-" 

FRINT"DOS ANTERIORES,ADELANTE!!!," 

FRINT"AQUI TENEIS EL SIGUIENTE,UN FOCO MAS " 

FRINT"DIFICILILLÜ QUE LOS OTROS TRES." 

FRINT"WTU SOLO TIENES QUE CONTESTAR CORRECTA-" 

FRINT"MENTE A LAS PREGUNTAS QUE TE FORMULAMOS" 

PRINTTAB16> " MÍISUERTE ! 1 1 " 

FORX=0TO11000 : NEXT 

F‘RINT"íftlílCURL ES L.A MRVÜR NACION DEL MUNDO?" 

INPUTM$ 

IFM$~"LA URSS"THEN FRINT" ICORRECTO" 

I FM$0" L.A URSS "THEN PR I NT " iáll NCORRECTO, ES LA URSS" : GOTO 10000 
PRINT":nlH!ÍT»::URL ES EL PAIS MAS POBLADO DEL MUNDO?" 

INPUTÜ$ 

IFOT— "CHINA"THEN PRINT"NCORRECTO» 

I FOTO " CH I NA" THEN FR I NT " rail NCORRECTO, ES CH I NA" ' GOTO 1OGOO 
PRINT"WWmCUñL ES EL TERRITORIO MAS DENSAMENTE " 

PRINT"POBLADO DEL MUNDO?" 

INPUTFT 

I FFT= " MfiCAO " THEN PR I NT " INCORRECTO " 

IFFTO " MAGRO " THEN FR I NT" rali NCORRECTO, ES MAGRO " : GOTO 10000 • 
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Viene de la página anterior 


870 PRINT ,, WWñCUñL ES EL TERRITORIO MENOS DENSAMENTE' 1 
880 PEI NT "POBLADO DEL MUNDO? “ 

890 INPUTGÍ 

900 IFQ$= ,! Lfi FlNTRRTIDA"THEN PRINT"INCORRECTO" 

910 IFQÍO"LA ANTRRTIDñ"THENPRINT"¡ÜINCORRECTO, ES LR RNTRRTIDR" ' G0T010002 
920 PRINT"ÍMTOJAL ES EL PRIS CON MRS INDICE DE EMI-" 

930 PRINT"GRRC1ÜN?" 

940 INPUTEÍ 

950 I FR$ss " ME JICO H THEN PE I NT " kCGRRECTO " 

960 IFRÍO n MEJICO"THENPRINT H m NCORRECTO,ES MEJICO M •GOTO10000 
970 PRiNT n fclflmPJRL ES LR PENINSULR MRS EXTENSA DEL" 

980 PRINT"MUNDO?" 

990 INPUTSÍ 

1000 IFSÍ = "ARREIR "THEN PR I NT "INCORRECTO" 

101 ü IFSÍO" RRRB 1A" THENPR I NT" rail NCORRECTO, ES RERE IR" : GOTO 10000 
1020 PRINT'LdWílCUflL ES EL DESIERTO MRS GRRNDE DE EL," 

1030 PRINT"MUNDO?" 

1040 INPUTT$ 

1050 IFTÍ="SRHRRR"THENPRINT"^CORRECTO" 

1060 IFTÍO " SRHRRR " THENPR I NT" rail NCORRECTO, ES SRHRRR " : GOTO 10000 
1070 PRINT"WWRi:URL ES LR CIUDRD RMUERLLRDR MRS AN-" 

1080 PRINT"TIGUR DEL MUNDO?" 

1090 INPUTIJÍ 

1100 IFU$="JER1CO"THENPRINT"^CORRECTO" 

\m ■ 001010000 

1130 PRINT"TR DE LO MRS "TIRRO" : " 

1140 FORX=0TO3080:NEXT 

1150 PRINT"MWRICURL ES LA CIUDRD MRS HRBITRDR DEL MUN-" 

1160 PRINT"DO?" 

1170 INPUTV* 

1180 IFVÍ-"TOKIO"THENPRINT"^CORRECTO" 

1190 IFVÍO"TOK IO"THENPR I NT " m NCORRECTO, ES TOK IO" • GOTO 10000 
1200 PR I NT " mmUE TRL?. DIFICIL ?. NO, HOMBRE NO, QUE ESTO " 

1210 PRINT"NO ES TRN COMPLICADO.OK?" 

1220 PRINT">M::OMO VEIS fiQUI SE ACABA EL GRANDIOSO" 

1230 PR I NT" •- - MACHAQUEO ‘DE PREGUNTAS. " 

1240 PRINT ".'«SUPONGO QUE RL FINAL OS SABREIS LAS 21?" 

1250 F‘R INTTRB < 15 > " :<WOSHRST R OTRA!!'" 

1260 PRINTTRB< 15> "S--" 

1300 FOR X- 0TO90O0:NEXT 
2000 PRINT"3" 

2010 FORX1-0TO22 
2020 Cl$= n ííi" 

2030 GOSUB2090 
2040 FORT-1TO150:NEXT 
2050 Cl$="3" 

2070 NEXT 

2080 GOT0219Ei 

2090 REM AVION 

2100 PRINr’WWTCU 

2105 IFX1-0THEN2120 

2110 FOR J J= 1TOX1 : PR I NT " Ül" ; : NEXT 
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1 2120 II $= " niüIüMiülelHli I OS ! ! ! " 

2130 D1$="T 
2140 El 
2150 

2160 G1$=I1$+D1$+E1$+F1$ 

2170 F’R I NTG1 $ 

2180 RETURH 

2130 PRINT"K« CÜPVRIGHT CC> DRNI HüRCñJADH i984" 

2200 PR1MITRE(15>" M< RUBEN" 

9999 ENE 

18000 V=54296 : W=54276 • H=54277 •* H=54273 : L=54272 

10U01 FÜRX« 15TO0STEP-1 •' POKEV, X : POKEW, 129 • POKER, 15: POKEH, 40: POKEL, 200 •* NEXT 

10002 POKEW,0•POKER,O 

10003 PRINT":e!MpIíí::OMO TE HRS EQUIVOCADO" 

10004 PRINT"EL. JUEGO SE HR ACRBRDO" 

18005 PRINT"BIFERO SI QUIERES VOLVER A EMPEZAR..." 

10006 PRINT"ESCRIBE LR PRLRBRR RUN 

10007 PR I NTTflB < 19 > - - - 
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Los Sprites son una de las más 
interesantes posibilidades gráficas 
con que cuenta el C-64, pero para 
diseñarlos se requiere una buena do¬ 
sis de trabajo. Para ayudar en esta 
labor, Juan Irisarri, de Madrid, ha 
enviado a concursar este programa, 
SPRITES, que es un auténtico editor 
de Sprites con bastantes posibilida¬ 
des. El programa se maneja de forma 
>encilla desde un menú que ofrece las 
siguientes opciones: 

1. CREAR SPRITE. Esta opción 
permite diseñar por primera vez un 
Spnte. Esto se lleva a cabo sobre una 



PREMIADO CON 

B PESETAS 

rejilla, introduciendo las coordenadas 
de los puntos que se desea encender. 

2. BORRAR PIXEL. Esta segunda 
opción ofrece la posibilidad de ir 
borrando uno a uno los pixels encen¬ 
didos que no interesen. 

3. VISIONAR. Al elegir esta op¬ 
ción desaparece el reticulado de la 
pantalla, lo que permite ver el Sprite, 
tal y como está siendo diseñado, en 
todo su esplendor, sin líneas de por 
medio. 

4. CODIGOS. Aparecen, línea 
por línea, los valores codificados 
correspondientes al Sprite. 


5. REPRESENTAR. Permite ver el 
Sprite, tal y como aparecerá en un 
programa, de varias formas. Estas 
formas incluyen el aspecto normal del 
Sprite, el mismo expandido vertical¬ 
mente, expandido horizontalmente y 
por último, expandido en ambas di¬ 
recciones, tanto horizontal como ver¬ 
ticalmente. 

6 FIN. Opción que, para los que 
no lo hayan adivinado, permite ter¬ 
minar el programa. 

Felicitamos a Juan, el autor de este 
programa, con el que no se nos va a 
resistir ni un solo Sprite. 
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10 REM*** PÑNTHLLH V MENU *** 

20 B=1024:Y1*54272 
30 P0KE53281, 14 • PÜKE646 , 2 

32 fi$<0> = ” OPCIÜNES " : Hí<1>-"1-CREHR SPRITE" : H$(2> = "2-BGRRRR PIXEL" 

33 ñ$ ■: 3 > = " 3-VISI ÜNfiR " • R$ < 4 > =" 4-CÜDIGOS “ : R$ ( 5 > = " 5-REPRESENTRR u 

34 ñ$ (. 6 > = " 0-FIN 

39 PRINTM" 

40 FÜRI=1TG21•POKEB+I,I•POKEB+I+V1,0-PÜKEB+40*1,1-PÜKEB+40*I+V1,0:NEXT 
50 FÜR I-22TÜ24 = PÜKEB+1,1: PQKEB+1+ V1,6 •’ HEXT 

60 FÜR I =01020 : FÜR J* 1065TÜ1038: I FJ= 1072ÜRJ- i 080ÜRJ=1888THENCL=5 '-.GOTOSO 
70 L-L^b 

80 POKEJ+40*1,91:POKEJ+40*I+Y1,CL:NEXT:NEXT 
90 X=26:Y=5:G0SUB5100:PRINT"¡S"H$ <0>:JL=1 
95 GETJBÍ : IF JDÍ> ”THEN95 

i 00 FÜRV=7TÜ 17STEP2 : G0SUB5 í 00 : PR I NTH$ < .JL ) : JL=JL+1 : NEXT 
110 X* 10 : V=22 : G0SUB5100 : INPUT ” OPC ION I! 0 
120 IFG<0ORO>5THEN90 
130 ÜNÜ+1GÜTÜ200,500,500,680,800,1000 
200 PR I NT “ m n i : ENB 

500 GOSUB5000 : X=26 : V=5 ; GÜSUB5100 : PRINT" T ft$<0 > 

510 Y=7 : GÜSUB5100 : PR I NT" INTRÜDUCE 13: V=9: G0SUB5100 : PR I NT 33 CÜORBENñDftS 
520 V* 11 : G0SUB5100 ; PR I NT 13 ( EJEMPLO RX > !í : V= 17 : G0SUB5100 : PR í NT " 

530 X=30 : V= 15 : G0SUB5100 : GETF’$ : PR INTP* : I FP$» ,! THEN530 

531 I FP$= " 0 11 THEN90 

535 X=31 : G0SUB5100 : GETPPÍ : PRI NTPP$ : IFPP$= H! ‘THEN535 
548 GÜSUB5020 : Xi=RSC< F$) -65 : V2=HSC< PP$ >-65 : r=1065+V2+X1*40 
550 IFÜ=1THENPS*160 : C1=0 : GOTO580 
560 PS=91:IFV2=70RV2=150RV2=23THENC1*5 : GOTO580 
570 Cl=6 

580 POKER,PS:POKEP+Vi,C1 

598 X=26: V=15 : GGSUB5100: PR I NT 33 " : GOTO530 

600 GOSUB5000 : X=26 : V=5 ; G0SUB5108 : PR I NT 13 Sr H$ ( 3 > 

610 FÜRI=0TQ20 : FÜRJ=1065TO1888 
628 IFPEEK J+40* I > 09 i THEN640 
630 *POKEJ+40*1,32:P0KEJ+48*I+V1,i4 
640 NhXí ; NEXT 

658 V= 11 : G0SUB5188: PR I NT" PULSR ESPRC10 13 
660 V= 13 : G0SUB5188 : PR I NT " PftRR MENU 53 
670 I FPEEK < 197 > O60THEN670 
630 FÜRI=0TO20 : FÜRJ=1865T01088 
690 IFPEEK<J+40*I> = 160THEN730 
700 IFJ=18720RJ=1880ORJ=i888THENC1=5 ; GOT0720 
710 Cl=6 

i 7 2 U P Lf K EJ+4 8 * I .< 91 : F ! ¡J K E J + 4 0 * I + V1 , C1 
738 NEXT:NEXT 
748 GU5ÜB50U0•UUl U80 

800 GOSUB5000: X=26: V=0 •* G0SUB5108 : PR I NTa ! ‘ (4 > 

818 FORI-0TO20 
820 FORJ=0TO2:CDX=8 


ii 


830 

FORK=í 

840 

R=PEEr 
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850 CBX=CDX+2t<7HO 
860 NEXTK 

tí 7 U IF J — 2 T H L N C .U S T R $ í. C I¡ X ) : G Ü S U B 3 3 0 : G Ü T Ü 8 3 0 
880 CB$=3TR$CDX> : GÜSUB330: ÜH$-CI >$+ M , " 

830 X-26+5*J : V=I+i:GÜSUB5i00•PRINTCE* 

300 NEXTJ 
320 NEXTI 

330 X= í 0 • V=22 : GGSUB5 í 00 • PR I NT 11 SPULSE ESPñC IO PfiRfi MENU !l 
348 IFPEEK (137 > O60THEN348 

355 FORY=0TÜ21 

360 X=26 : G0SUB5100 : PR I NT " !! 

365 NEXT 

370 x=í 6:V=22 : GÜSUB5100 : PRINT" 

380 GOTO30 

930 IFLEN0GD$>-1THENCD$ : = : CD$+ M n 

331 IFLEN < CD$ > =2THENCD$=CD$+ ,! !! 

332 IFLEN<GD$>*3THENCD$=CB$+ n n 

333 RETURN 

i 008 GOSUB5000 • X-26 • Y=5 • GÜSUB5100: PR I NT " ¡8" ft$ < 5 > 

1005 V-53248 : N=0 

1008 V=3 : GÜSÜB5 i 00 : PR I NT !i ESPERE ” 

1010 FÜRI=0T020 
1020 FORJ-0TG2•CDX=0 
1030 FÜRK-9T07 

1048 R=PEEK<1065+J*8+K+I*40>•IFR~31THEN1968 
1050 CBX=CI* X +2 T«i! 7-K > 

1068 NEXTK 

1970 P Ü K E832+N, C D X : N - N +1 
1880 NEXTJ 
1090 NEXTI 

1108 FüKEV+4248 : POKEV+5 .• i 7b : P0KE2942 .• 13 ; POKEV+41 .• 9 
1102 PüKEV+2,248:PGKEV+3,100:PÜKE2041,13-POKEV+40,8 
i 104 POKEV,240:POKEV+1,159:PGKE2940,13:PÜKEV+39,9 
1196 POKEV+6,255:PÜKEV+7,60 : POKE2043,13:POKEV+42,0 
1110 PÜKEV+21,15:POKEV+23,6 : PÜKEV+29,5 
1115 X=26:V=3:GÜSUB5190:PRINT" 

í120 X=19:V=22:G0SUB5100:PRINT"SPULSE ESPñC10 PfiRfl MENI I" 

1130 I FPEEK < 197 > O60THEN1139 

1149 PÜKEV+21,9 

1158 GQSUB5199 : PRINT n 

1169 GOTO30 

5009 X=26 : Y=5: GÜSIJB5199: PR I NT " 

5919 FÜRV-7TÜ17STEP2:GÜSUB5188:PRINT" 

5920 REM 

5930 IFRSC(P$><650RñSC<P$> >85THEN5959 
5948 IFRSC< FP$ >>64ñNDflSC(PP$> C83THENRETURN 



M :NEXT:RETURN 


H 


5W5W X=2 6■ V=15:00SUB51 m■ PRINT" 

5060 X=30:G0SUB5100:GETPf:PRINTP$:IFP$=""THEN5060 
5070 X=31: G0SUB5100: GETPF'f • PR I HTPF'Í: I FPPf =""THEH5070 
50S0 GÜTO5020 

5 i 00 P0KE78i ,W ■ PÜKE782, X: P0KE733.• 0 : 3VS65520 : RETURN 
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54 VIDEO-GRÍTIE/ 

•CLUB DE VIDEO JUEGOS 

*GnmE/ CLUB 

•CLUB DE USUARIOS. C0MM0D0RE-64. 
SPECTRUM V ORIC 


(james Qlub's 

RED NACIONAL DE CLUBS 

Aceptamos nuevos grupos federados. 
Inmejorables condiciones y asesorami ento. 

CONSULTENOS !!! 



«CONDICIONES ESPECIALES» a Centros de enseñanza, alumnos de 
informática y clubs de usuarios. 


PONEMOS A SU DISPOSICION «EL CATALOGO» 
DE SOFTWARE MAS Y MEJOR SURTIDO DEL 
MERCADO PARA SPECTRUM , C0MM0D0RE Y ORIC. 
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CP 80 BT 
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Impresora matridal 80 columnas coo set de cazadero españoles, totalmente compatible. 

SHINWA CP80 F/T es la nueva impresora. Con tecnología actúa: y preao competitivo, ofrece las 
dos características que hoy día hay que exigir a una buena impresora: fiabilidad y calidad de 
impresión. 

Pero la SHINWA CP80 F/T no se queda ahí: ofrece una resolución de 640 puntos por línea, juego 
de caracteres españoles y una gran variedad de posibilidades en la impresión de textos: normal, 
comprimido, doble ancho, super índices subíndices reducidos, ele. La impresora se suministra con 
interface Upo CENTRONICS. Opcionalmente, se puede conectar un interface RS-232 


DATALEC 

PV. OFERTA 

26 320 - 


P.V.OFERTA 

55 200 


Marife* monocromo para Yiwatiariá» de dato». 

El monitor DATALEC, con su pantalla de fósforo verde P-31 de 12 pulgadas, es la pantalla de 
visualización ideal para presentación de datos y gráficos en alta resolución. 


A + L 


centro de formación. Informática general y 
BASIC. Prácticas con COM MODOR E 64 
INFORMACION, c! Manso, 17 te!.-. 325 87 77 


SE BUSCAN/ tos mejores PROGRAMADORES. 

Pagamos excelentes royalties. Garantía y seriedad tota!. 


Nombre . Dirección 

Población . Provincia 

Distrito Postal . Teléfono 


BOLETIN DE INFORMACION Te/., 219 10 90 

remitir a 

SOFTWARE CENTER 
Avda. Mistral 10 1 D izq. BARCELONA 
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CAMPO MINADO es una versión 
para el C-64 del conocido juego de 
“cruce usted el campo de minas 
llevando un detector que le dice 
cuántas minas tiene alrededor'', juego 
que se ha convertido va en un clásico. 
El autor de esta versión es Jaime 
Corbella que envía su programa a 
competir en el concurso desde Bar¬ 
celona. El programa incluye todas las 
instrucciones y explicaciones necesa¬ 
rias páara poder jugar, que se pueden 
leer en la pantalla del televisor un 
instante después de escribir la famosa 
palabra RÜN. En esencia el juego 
consiste en cruzar de un extremo a 
otro un campo lleno de minas. La 
única ayuda que tenemos es un indi¬ 
cador, en la parte superior de la 
pantalla, que nos dice en todo mo¬ 
mento cuántas minas tenemos a nues¬ 
tro alrededor, el juego se hace a ocho 
partidas, en Cada una de las cuales el 
número va aumentando, o sea, que 
cada vez es más probable saltar pol¬ 
los aires simplemente por un falso 
movimiento del dedo sobre la tecla 
equivocada. Al acabar una pantalla, 
tanto si la acabas vivo como a troci- 
tos, el ordenador te mostrará la 
repetición de la jugada, pero ahora 
mostrándote donde estaban escondi¬ 


das las queridas minas con lo que 
podrás ver las tonterías que pueden 
llegar a hacerse sobre la pantalla. 

Incluimos una pequeña explicación 
de la estructura del juego que nos 
envía su autor: 


10-96 Explicación y reglas del juego. 
140-420 Presentación del campo. 
440-500 Colocación aleatoria de las 
minas. 

520-740 Mecanismo del juego. 
880-940 Repetición de la jugada. 
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DIMX < 500 > ; n IMV < 500 > : DIML < 1000 > 

PRI NT" IT 

P0KE53280,2 : P0KE53281 .■ 1 
PRINTTAB<12>":?l¡í# CAMPO MINADO *" 

PRINT"i***»»!! JAIME CORBELLA BARCELONA-1984" 

PR I NT ":!- 

PRINT"EL JUEGO CONSISTE EN HACER LLEGAR LA" 

PRINT"FIGURA Oí>i DE LA PARTE INFERIOR A LA" 
PRINT"PARTE SUPERIOR DONDE ESTA MARCADO CON" 
PRINT"LA FIGURA atTTS EVITANDO CHOCAR CON LAS" 

PRINT"MIHAS OCULTAS 0 CON EL MURO." 

PRINT"SEN LA PARTE SUPERIOR DE LA PANTALLA SE" 
PRINT"LE INDICA LAS MINAS QUE HAV ALREDEDOR" 
PRINT"DE LA FIGURA <40." 

PRINT"WSLOS CORAZONES <#> QUE APARECEN A PARTIR" 
PRINT"DE LA 3 PARTIDA LE DARA PUNTOS SI CON-" 

PRINT"SIGUE TOCARLOS." 

PRINT"3PARA MOVER LA FIGURA UTILICE LAS TECLAS" 


b 


NUMERO 7 



000000000000 0.000000 


























Viene de la página anterior 
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70 PRINT" Z-DERECHñ N-RRRIEfl" 

72 F’R I NT " X-1ZQUI ERBñ N-fiBfijn ” 

74 PRINr'HWMiWaPULSE UNR TEfiLR" 

76 ÜETT$ : IFT$=""THEN76 
PRINT "IT 


r r 

78 PRINT"HñV DOS ZONñS SEGURAS,QUE SON:" 

80 PRINT“DEBAJO DEL MURO SUPERIOR V" 

82 PRINI"ENCIMR DEL MURO INFERIOR." 

84 PRINT"«IDESPUES DE CADA JUEGO F'ODRR VER Lfl" 

86 PRINT"Lfl REPETICION DE Lfl JUGADA" 

88 PRINT"MSEL MAXIMO DE JUEGOS ES DE 8" 

80 PR IHTTRB < 13 > " JSBÍSBUENfl SUERTE " 

92 PRINT"M(©*»I3PULSE CUALQUIER' TECLA PARA COMENZAR" 

94 GETRÍ:IFR$=""THEN94 
96 PRINT"3" 

180 PRINT"3" 

198 GOSUB200 : GOTO410 

200 F0RP=1T038 

210 Pl = 1024+F'+40*3 

220 POKEP1,102:POKEP1+760,102 

230 NEXT 

240 F0RP=3T022 

250 F'2= 1024+1 +40*P 

260 P0KEP2,102:P0KEP2+37,102 

270 NEXT 

280 FQRP-1163T01165 

290 POKEP,158:POKEP+760,32 

300 NEXT 

305 XR=28:VR=2:Z$=" F’flRTIDAS-":GOSUB330 = POKE1101,C0+49 
310 XR=1:VR=2:Z$="ST1IHAS:-“:GOSUB330 
330 P0KE214,VR:P0KE211,XR-1:PRINTCHR$d45)1 Z $:RETI IRN 
410 N=40:SC=0:CO=0 : PA=0 

412 XR=3 : VR=5 : Z$=" íi-ZONA SEGURA-":GOSUB330 

414 XR=8: VR=22: Z$="-ZONA SEGURA-" :GOSUB33A 

420 XR=13:VR=24: Z$=" SPQNIENDO MIÑAS":GOSUB330 

430 T=0 : T1=0 

440 FORV-0TON 

450 X < V.) = I NT < RND < 1 > *36 > +2 

460 VCV) = INT < RND<1>*16>+5 

470 M1 = 1024+X<V ) +40*VC V) 

480 M2=55296+X <V >+40*V<V) 

490 P0KEM2,1: F’OKEM 1,81 
500 NEXTV 

510 IFC0>1THENZ1=INT(RND<1>*12>+7:Z2=1038+40*Z1 : Z3=55310+40*Z1 
515 IFCÜMTHEN P0KEZ2,83 : P0KEZ3,2 ; P0KEZ2+11,83: P0KEZ3+11,2 
520 XR= 12 : VR=24 : Z$= " " : GOSl 1B330 

cr 


522 XR-3 : VR=5 : " 

524 XR=3 : VR=22 : Z$~" 

530 POKE1924,65 

540 X=20 : V=23 

550 FORS-1TO1000 

560 R1=0:R2=0•R3=0 : R4=0 

570 QETfi* : IFR$=""THEN570 

580 IFft$="Z"THENX=X-1 


" : 6O8UB330 
" : GOSUB330 


28 
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530 I FFI$~ " X" THENX=X+1 
600 IFA$="M"THENV=Y-1 
610 I FA$="N"THENV-V+1 
620 T=T+1 

638 L <S> ~ 1024+X+40#V 

635 IFL CS > >1943THENL<S > = 1324 

640 CH-PEEK< L < S ) ) 

650 IFCH-81GRCH-102THEN800 

660 IFCH=158THEN1000 

670 IFCH-83THENSC-SC+500 

680 POKEL<S),65:POKEL<S-1),160 

685 IFC0=6ñNDT>45THENPÜKEL(S-1>,32 

687 IFCQ=6flNDT-45THENXR=7 : VR=24 : 2$=" SVA NO DEJfiS HUELLfiS" : GOSUB330 

630 IFPEEK<L <S)~1> =81THENR1 = 1 

700 IFPEEK <L <S > +1>=81THENR2-1 

710 IFPEEK <L <S >-40>=81THENR3-1 

720 I FPEEK«: L ( S ) +40) =81THENR4* 1 

730 PÜKE1071,176+R1+R2+R3+R4 

740 NEXT 

800 VR=12:XR=10•2f=" ¡SHAS SIDO DESTRUIDO"•GOSUB330 
810 SG=SC+100-T 

820 FORES=0T03000 ; NEXT : GO8UB830 : GOTO350 
830 PRINT" 

840 GOSUB200 
850 FÜRV=0TQN 

860 M1-1024+X<V> +40*V< V>:M2=55296+X<V>+40#V<V> 

870 P0KEM1,81 : PÜKEI12, 0 
880 NEXT 

885 IFCO>1THENP0KEZ3,5 : PÜKEZ3+11,5:P0KEZ2,83:P0KEZ2+11,83 

830 FORS=1TO1000 

300 POKEL<S>,65:POKEL <S-1>,160 

910 T1=T1+1 

320 I FT 1-T+1THENRETURN 
930 FORES=0TO500 : NEXT 
940 NEXT 
950 PRINT"3" 

955 PRINT"MUSLO SIENTO NO HñS SUPERADO LAS 8 PRUEBAS" 

960 PRI NT "mi PUNTUACION ES DE"; SC; "PUNTOS" 

970 GOTO1300 

1000 VR= 12 : XR= 10 : Z$= "EiSLG HAS CONSEGUIDO" : GOSUB330 
1020 SC-SC+300-T 

1030 FQRES=0T03000 : NEXT:GOSUB830 

1040 YR= 14 : XR=6 : Z$= "ESTE ATREVES CON 0TRA7-SCSI VK<NÜ> " : GOSUB330 

1050 GETT$:IFT$=""THEN1050 

1060 IFT$="S"THEN1080 

1070 IFT$="K"THEN950 

1075 GOTO1050 

1080 PRINT“a" 

1090 CO=CO+1 : POKE53280,2+CO 
1100 N=N+10:PA-PA+1:IFPA>7THEN1200 
1110 GOSUB200:G0T0428 
1200 PRINT"3" 

1210 PRINT"WIAGNIFICO,HAS SUPERADO LAS 8 PRUEBAS" 

1220 PRINT"TU PUNTUACION FINAL ESSC;"PUNTOS" 
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1230 GOTO1300 

1300 PRim n mmUBDTRfí PARTIDA SI/NCP" 

1310 INPUTB* 

1315 I FB$= : " SI " TH£HV=0 : X=0 : V=0 ; L=0 : CÜ=0 : GOTfi 180 

1320 IF£$="NO"THENEND 

1325 PRINT"HABLA CLARO !!CARAMBA!! 

1338 GOTO1300 
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CBM M 


1 

2 REM*#MENSAJES DE ERROR EN CASTELLANO 


3 


No todo van a ser juegos en el 
campo de los programas, por ello 
presentamos aquí este programita de 
utilidad o podríamos decir de “curio¬ 
sidad” que recibimos de Clemente 
Pérez desde Zaragoza. El programa 
se encarga de traducir al castellano 
los famosos mensajes de error, del 
tipo Syntax error, que suelen aparecer 
cada dos por tres para fastidiarnos. El 
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programa, que incluye alguna rutina 
en lenguaje máquina, se borra nada 
más ejecutado, apareciendo en la 
pantalla el mensaje LISTO en lugar 
de READY. 

Después ya podemos equivocarnos 
sin problemas, ya que en lugar de 
fastidiarnos en inglés, el ordendor se 
encargará de fastidiarnos en castella¬ 
no, lo cual es muy diferente. Este 


4 REM**** CLEMENTE PEREZ RODRIGUEZ 

5 REM*#^***i4í*/4i**^^/*if:******^^***íf***** 

7 REM###################### 

8 REM## 8UB L/M COPIA ROM 

9 REM###################### 

10 FORI=0T029•READJ : P0KE828+I,J : NEXT 

1 CT <-• LI *“• 1—IO O 

•J --.'I •jOuU 

20 PGKE829, S : P0KE834224 ; PQKE837 > 224 
25 SVS828 

40 DfiTñ 160, 192, 162 > 0, 189,0 , 160, 157,0, 160,224.. 255,240 , 4, 
42 DñT8238 , 69, 3,204,66,3,208,229.. 96 

45 REM####################### 

46 REM## DflTñ MENSAJES ERROR 
47 REM####################### 

50 RERIifi: IFñ=0THEN200 
52 IFPK256THENPGKEB,H:ÜUTO50 
55 REfiDfi$ 

g = pj 

70 F0RN=1TOLEN <A$ > 

80 POKEB. ASCMID* < A$, N, 1 > > 

85 B=£+I 
90 NEXTN 
95 GOTO50 

100 DATA61630 .> E/S .*61642^ BUSCANDO ^ 61652 > A , A1657 
110 DATAPULSE TECLA PLAV ,160,61675,PULSE TECLAS RECORD 


funcionamiento en castellano conti¬ 
nuará indefinidamente hasta que 
apaguemos el ordenador o hasta que 
pulsemos las teclas RLX/STOP res¬ 
tore, con lo que volverán a aparecer 
las frases en inglés. En este segundo 
caso, es decir, ai emplear RUN/STOP 
RESTORE, se puede volver al funcio¬ 
namiento en castellano escribiendo 
POKE 1,53 \ pulsando después RE- 
TURN. 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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V PLAV,160 
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120 
130 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 

197 

198 

199 

200 
210 
212 
215 
217 
220 
250 
255 

279 

280 
281 


IiftTflb 1703, CARGO , 160,61711, GRABO , 61719, VER IFICÜ, 160,61729, HALLO, 61736, VA 

DATA44285,IGNORÜ EXTRAS,44301,VOLVER A INICIO 

BATA41842,E,41848,LISTO,41859,PARO ,41374,MUCHOS FICHERÜ,211 

DATA41389,F1CHERO ABIERT,207,41404,FICHERO CERRAD,207 

DATA41419,FICHERO NO HALLAD,207,41437,FALTA PERIFERIO,207 

DATA41453,FICHERO SALID,193,41467,FICHERO ENTRAD,193 

DATA41482,FICHERO OMITID,207,41497,NUM. PERIF. ILEGA,204 

DATA41515,NEXT SIN FO,210,41527,SINTAXIS MA,204,41539,RETURN SIN GOSU,194 

DATA41555,NO HAV DAT,193,41566,CANTIDAD ILEGA,204,41581,NO CAB,197 

DATA41588, MENORIA LLEN, 193,41601, L.INEA INBEFINID, 193,41617,1 NDICE FAL8,207 

DATA41629,MATRIZ REDI,205,41641,DENOMINADOR NUL,207,41657,DIRECTO ILEGA,204 

DATA41671,CARACTER FALS,207,41685,CADENA LARG,193 

DATA41697,DATA MAL,207,41706,FORMULA CUMPLEJ,193,41722,NO PUEDO CON,212 
DATA41735,FUNCIQN INDE,198,41748,NO COINCID,197,41759,CARGA MA,204,0 
REM###################### 

REM### CAMBIO VECTORES 
REM###################### 

F0RX-41770TO41824STEP2 
RE ADV •' W=PEEK < X ) +V 

IFW>255THENW=W-256 : POKEX+1,PEEK<X+1> +1 
IFW<0THENW=W+256 : POKEX+1,PEEK<X+1) ■-1 
POKEX,U 
NEXTX 

DATA1,7,9,13,11,11,11,9,6,2,8,4,4,3,2,2,1,9 
DA1 A~1, 1, 1,0, 3, 6, i‘ , 10, “%j 

REM############## 

POKE1,53=NEW 
REM############## 


PREMIADO CON 

PESETAS 
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CBM-64 


Juan Luis Aguado de Valladolid 
nos envía este juego para el C-64, 
MASTERMIND, una versión bastan¬ 
te clásica del conocido juego del 
mastermind. Se trata de adivinar una 
combinación de seis colores pensada 
en secreto por el ordendor. Se pueden 
realizar únicamente seis intentos para 
acertar con la combinación, teniendo 


en cuenta que ninguno de los colores 
puede estar repetido. 

Los heridos y los muertos se repre¬ 
sentan por círculos blancos y negros 
respectivamente en la parte derecha 
de la pantalla, al lado de cada jugada. 
Como se sabe, los heridos represen¬ 
tan un color acertado, pero que no 
está colocado en su lugar correcto, 


mientras que los muertos represen¬ 
tan aciertos completos, es decir, tanto 
en el color como en la posición. El 
juego termina o cuando se consiguen 
seis muertos, es decir, que se ha 
acertado la combinación, o bien 
cuando se acaban los seis intentos. 
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1 REM 

2 REM ****** DECLARACION DE VARIABLES** 


11 


DIMENSIONES 


3 REM ****** 

4 REM 

10 DIM P<6> : DIM V<6):DIM C<4> 

20 A-55540: i> 1269:D=1886:T-VAL<RIGHTÍCTI*,6)> 

24 REM 

25 REM ****** PRESENTACION ************ 

26 REM 

30 PRINT"=POKE 53281,12-POKE 53280,11 

48 PR I NT " :««i»ÍÍiraMASTER MI ND" : F’R I NT'*- 

50 PRINT ,, HÍÍHkr--r-n I- 


1" 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


NUMERO 7 

































Viene de la página anterior 


O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


68 PRINT M IWHl“k I3S0 0 0 ük 1 5300ü0k I 
70 PRI NT 11 ÜMftl b-•+- H | 


98 PRINT"»»*IP 


I" 


118 PRINT")ÍMI b 
120 PRINT”IU4~k 
138 PRINT">ÍÜ! b 


.I3!ü 

0 0' ük 1350000k 1 

— i-j i 

i i 

k i" 

in 

kl3¡C 

' 0 ü ük I35üüüük | " 




- - ~+ -H SK 

CRSOR 

V II 

y 

.IHD 

0 0 Ok. ISíÜOÜÜk 1 " 




_b . 4 



klHD 

1 0 0 ük ISSüüüük 1 

■PARA 

SELECCIONAR" 

b- 

- 4-H " 



kISSO 

o o oki Stooooki 

BEL C 

¡OLOR PULSA" 


170 PRINT "íüilk L -- J 

180 PRINT" SÜESPñCE*" 

190 F UR N-0T 018 : F ÜRM=0TÜ 1 • POKEA+20+N+48*M .• 3.5 : PÜKE C +1 3 +N+40*M , 160: NEXTM •* NEXTN 
280 F’ÜKE fi+20.. 7 • PÜKE R+22, 8 : PÜKE A+24,18 • PÜKEA+26,2 • PGKEA+28 , 5 : PÜKE ñ+30,6 
230 REM 

240 REM ****** COMBINACION DEL ******** 

250 REM ****** ORDENADOR 


*** 

a>*7+r 


y j 


268 REM 

380 FÜR N=1 TO 4•CCN)=INT 1 
310 IF C•:!N> =3 THEN C<N>=8 
328 IF C<N>=4 THEN CCN>=10 
338 NEXT 

348 IF C ( 2 ;• = U '• 1 > 0 R iJ ( 3) = C < 2 ') G R C *■ 3 > = C < 1 > 0 R C ( 4 > = C (3) 0 R C < 4 > = C (2 > 0 R f: 4) ~ f :< 1 > T H E N G n T fi 3 Pí 
0 ~ 

400 REM 

410 REM ****** TOMA DE DATOS ********** 

428 REM 

580 F’OKE C+99+H,30 : PÜKE C+99+ ( H-2 > , 32 : PHKEP+99+ < H+2 . 32 

528 GET A$-IF ñ$="M" THEN H=H+2 

548 IF A*»"»" THEN H=H-2 

560 IF H$=" " THEN OOSUB 2000 

580 IF H>10 THEN H=10 

608 IF HC0 THEN H=0 

650 GOTO 580 

2000 POO-F’EEK ÍA+20+H> AND 15 

2810 FOR £==0 TO 6 STEP 2 : V<E>=PEEKX55541+B+40*V>AND 15 : NEXT B 

2020 IF V(G> =P(X) GR V(2>=P(X) GR V<4)=POO GR Vitó-ROO THEN GfiTfi 500 

2030 POKE C+X+40*Y ,81: pQKE A+1 +X+40*Y . P < X 

2040 X-X+2 ; IFX06 THEN : RETURN 

2180 REM 

2110 REM ****** COMPARACIONES ********* 

2128 REM 


2280 

IF 

P< 0 >=C(1> 

THEN BK=BK+1 





o 

¡ 2210 

IF 

P(2>=C<2> 

THEN BK=BK+1 





° 

i 2220 

IF 

P i 4)=C(3) 

THEN BK=BK+1 





0 

2230 

IF 

p (s y —c (. 4) 

THEN BK=BK+1 





1 o 

2240 

IF 

P(0 ) =C(2 > 

GR P ( 0 > =C (. 3 > 

0R 

P (@ > =f: c; 4 

THEN 

WT=WT+1 

1 O 

2258 

IF 

P (2 ') =C < 1 > 

GR P(2)=C < 3) 

GR 

P<2)=C<4> 

THEN 

WT-WT+1 

o 

2260 

IF 

P < 4)-C( 1 > 

GR P(4 > =C(2 > 

GR 

P (4 > =C < 4 :> 

THEN 

WT=WT+1 

l ° 

2270 

'-rrint-z 

IF 

r i r- k 

P (6 ) — C ( 1) 

GR P(6>=C<2> 

GR 

P(6>=C< 3 > 

THEN 

WT-WT+1 

o 

r\ 


2310 REM ****** RESPUESTA DEL. ********* 

2328 REM ****** ORDENADOR ********* 

| 2340 REM 

2500 FOR 1 = 1 TO BK- POKE C+'7+I+40*Y, 81 : PQKE A+ft+l+40*Y, 0 : NEXT 
2518 IF BK=4 THEN GOTO 4000 
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2520 
2530 
2540 
2600 
2610 
2620 
3000 
3010 
3020 
3030 
4000 
4010 
4020 
4030 
4040 


IF WT=0 THEN GOTO 2540 

FOR J=1 TO WT : F'OKE C+7+BK+J+40*V, 81 • POKE A+8+BK+J+40$ t , 1 : HEXT J 

Y=V+2 : 1F VO10 THEN X -& : BK-0 : WT-0 : GOTO 500 

REM 

rem ****** mensajes finales ****** 

REM 

PRINT”MELÜ SIENTO, NO LO LOGRASTE - 11 
PRI NT" HMLñ COMBI NflC ION ERñ : " 

FOR N=1 TO 4:POKE D+P,81:P0KE56158+P,CíN >:F-P+2•NEXT N 
GOTO 4010 

PRINT" ÜiKENHORfiBUENñ,ACERTASTE 
PR I NT" *»ÍIDTRA PARTI DA? ÍS/N > n 
GET H$ : IF A$= n " THEN 4020 
IF R$«"S" THEN RUN 
PRINT"Í>ÍIjK. HASTA OTRA" 


H 
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Esta versión del popular Simón 
para el VIC-20 ha sido creada por 
Antonio Font, lector de Commodore 
Magazine de Barcelona. Simón es un 
juego que pone a prueba la retentiva y 
los reflejos del jugador, ya que consis¬ 
te en recordar series cada vez mayores 
de colores y sonidos/para repetirlas a 
continuación, cada una más deprisa 
que la anterior. El programa que nos 
remite Antonio permite jugar de dos 
formas diferentes; un solo jugador 
contra el VIC-20 o entre varios ju¬ 
gadores. 

En la primera modalidad el VIC-20 
va mostrando al jugador, sucesivas 
series de colores. Cada serie repite 


todos los colores de la anterior y 
añade uno nuevo, al mismo tiempo 
que la velocidad aumenta. Después 
de cada serie el jugador debe intentar 
repetirla sin equivocarse con ninguno 
de los colores y dentro de un tiempo 
límite, para lo cual utilizará las teclas 
1, 2, 3 y 4 que corresponden a los 
cuatro colores del juego. Vencer a la 
máquina es una tarea harto difícil, ya 
que es capaz de presentarle al jugador 
series de hasta 250 colores. 

Cuando se juega entre varios juga¬ 
dores, lo primero es decidir cuántos 
van a ser, diciéndoselo al ordenador. 
A continuación y por turno cada uno 
de los jugadores irá repitiendo la serie 


de colores del jugador anterior aña¬ 
diendo, al final, un color más. Cuan¬ 
do el último jugador haya terminado 
con su serie de colores, es el turno del 
primer jugador, que deberá hacer lo 
mismo que sus compañeros, con lo 
que se cierra el ciclo. El juego discurre 
de esta manera hasta que alguno de 
los jugadores se equivoca. 

Al principio es muy sencillo recor¬ 
dar las series mientras son cortas, 
pero cuando se hacen mayores, el 
juego puede llegar a desencadenar 
auténticos ataques de histeria y si no, 
lo mejor es que cada uno lo comprue¬ 
be por sí mismo. 

VIC - 20 
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0 

REM 

I 

REM 


REM 

•**’» 

..2* 

REM 

4 

REM 

5 

REM 

6 

REM 

■— ;i 

í 

REM 

8 

REM 

Q 

REM 

1 C 

i REM 

11 

REM 

12 

: REM 

13 

: REM 


************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


HECHO 
POR : 

ANTONIO 

FONT 

BARCELONA 

r í-r t— .~l .-I “j 

L cO~J C*4 J 
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Viene de la página anterior 


14 F’R I NT " 3" : S1 =36874 ■ 32=36876 : 33=36877 ; 34=36875: C1 =36879 

15 OOSUB17 : V=0: B=@ : P0KE36878.. 15 

16 GOTO18 

17 PRINT " IES SINON ü" :POKEC1,88:RETURN 

18 PRINT"WiELIGE ENTRE ESTAS :s*»»HTRES OPCIONES" 

19 PRINT"SB»l91Hi JUGAR CONTRA LA KftMMMAGUINA 3tíK 1 PERSONA)!" 

28 PRINT"Í!*I32Ü JUGAR CONTRA «WWWRMIGGS" 

21 GETSí: I FS$= " 1" THENGOSIJB90 • G0TO24 

22 IFSf="2"THENGOSUB90:G0T028 

23 G0T021 

24 GOSUB17: PRINT"iJfffiWICONSISTE EN ACERTAR JSWLÜS MAS POSIBLES 




Puní: OLORES 




25 PRINT")»ÍlINTENTfi BATIR EL MRECí 

26 PRIN1 ’.üMIV Si LLEGR RL FINhL . ftipftjjj I ! PREMIO! ! i 

27 RR=0•FORX=1TGi0000•NEKT:GÜTÜ40 

28 GOSUB 17 : PRINT"BÜfflPCONSISTE EN QUE EL JflPRIMFRfi F’l li SF IIN 
MftS" 

29 PRINT ,, :p»|í|V QUE EL OTRO LOS ÍÜRCIERTE" 

30 PRINr’MW SUME UNO MhS V RSI MSUCESI VAMENTE 

31 INPUT " .^JUGADORES i! ; BB 

32 R$- !! " : PR I NT " 7F ■ RR= 1 : C= 1 • E= 1 • i F B-0THEN37 

33 C = i : IFRFl-BB+1 THENRH-l . 

34 FORX-i TOE ■’ G0SUB52 

35 I -0 • pRIHT •' GOSU £88 : GO 8 UB 60 

36 IFBT—MID$fl$.« C.. E THENC—C +1 : HEX i 
Sr UUbUB:j¿! • UUSUBoÚ • FlH—■‘FíH +'l 

So R$-rl$vB$ : B=LEH í. H $) : IFB—258 i* RENGO SUBO 3 : G0T06 3 
33 G0T033 

40 hÍ—"" 

41 PR i NT i; IT •• fi= I NT < RNH < 1) +4 > •+• 1 : E= 1 
4 2 IF H = 1T H E N ñ $=M $ + 1 '* i"' 

43 I FA=2THENA$=A$+ " 2" 

44 IFñ=3THENñ$=ft$+"3" 

45 IFR= 4 THENH$ : =R$+" 4 " 

46 B=LEN<ñ$> 

47 IFB= 250 THENGO 3 UB 63 : G 0 TÜ 69 

48 FORO 1 TOE 
43 B$=MID$<Rt,C.E) 

50 GÜSUB 80 •NEXT 

51 FORO- 1 TÜB : G 0 SUB 52 : G 0 TÜ 57 

52 B$="":J= 1200 -<B# 4 ) 

53 6 ETB$ : I~I +1 : PR I NT" íi'sMülHT IEMPO PARA LLÉGñR R M"J" [W 

54 IFRRO 0 THENPRI NT" »iII:ONCURSRNTE M ; RR 

55 IFB$=" 1 "ORB $="2 "ÜRBS- 3 "ÜRB$~" 4 11 THENRETURN 

56 G 0 T 053 

PRINT'TT' : G 0 SUB 88 : GOSUB 60 


:«CÜLOR CADA VEZ 


! ! !SUERTE Mi" 



"i I•IFI>=JTHEN66 


r--~? 

•J i 

58 IFB$=MIHí(A$,C,E)THENIFC=BTHENFORH=1TO500:NEXT:1=1:G0TÜ41 

59 NEXTC 

60 I FB$OM I D$ < m , C.. E ) A N Ü £ >=5 0 T H E N GOSUB63 ; V= 1 : GÜT071 

61 IFBTOMI D$ < ft $, C, E) THENG0SUB63 : GOTO71 

62 RETURN 

63 G ss <B*5)-5 : IFV<GTHENV=G 

64 IFAAO0THENPRI NT" «««««««««««««««CONCURSANTE", AA 

65 PRINT"S««««««««fl«CON81GUI STE:"G1"P.": PR I NT" «RECORD ; "; V; "P. " : RETURN 
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MLIMITE DE PACIENCIA 


MLO S 
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C7 

r j 
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F'RINT"naílüHH'lñS RAPIDO! ! I" 

PRINT"«LLEQASTES HASTA MI 
GGSUB63 : G0SUBS6 : GOTO/5 
PR INI" 3«SWESTUP ENDü i i ! " 

PRINT"MLLEGASTES A GASTAR MI «MEMORIA. ME HE PERDI- «DO VO":G0SUB88:G0T075 
PR I NT "Í.Mí!#IiFALEASTE i ! ! " 

PRINT"«L0 SIENTO NO ERA ESTE «COLORIERA EL ",MID*<A$,C,E) 

IFV=1THENG0SUB88:G0T075 
50SUBS6 : G0T075 

F'R I NT" ^«?IiM®MeM»Ii!MPMWWWv’ÜLVER A EMPEZAR [S.. NI" 

UE1 Di 

I FD$="S"THENG0SUB98:GOTO14 
I FDí-" N " THENF'R I NT “ IT' : F'OKEC 1,27: G0SUB90 : END 
OOT 076 

PR INT" IT' = P0KES4,215:1 FE$=" 1"THENPOKEC 1,8: P0KES2,240: PR INT "5T i 
IFE$="2"THENPOKEC1,25:P0KES2,151:PRINT"i"; 

IFB$= " 3 " THENPOKEC 1,42- PÜKES2,201 : PR I NT " 51", 

IFB$= " 4" THENPOKEC 1,59 : P0KES2,227 : F'R INT" ■", 

PRINT"íSílKIíMíIKHtiiViiPliil", Bi 

FORH-1TO8O0- ( B*2. 75) : NEXT : POKEC1,88 •' P0KES2, 0 : PRINT "lü" : P0KES4,0: RETUPN 
F 0RX=241TO135STEP-0.5:P0KES3,X ; NEXT : P0KE33,0:PÜKES2,239 
F URX=11U100 : NEXT ; P0KES2,O : RETURN 

FORP-1TO10 : F0RX-229T0241:POKES1,X:NEXT:F0RX=241T02293TEP-1 ; POKES1,X:NEXT:NEXT 
P0KES1,0:P0KE32,239 : FORX=1TO100 : NEXT : P0KES2,0 : RETURI 
P0KES2,280:FORX=1T0300:NEXT : P0KES2,O:RETURN 




COMPUTERS, S.A. 

/ r 


PAMPLONA: C/ Alfonso el Batallador, 16 (trasera) - Tel. 27 41 54 (provisional). 
SAN SEBASTIAN: Plaza de Bilbao, 1 - Tel. 42 62 37. 


EXPOSICIONES: 


C/ Alfonso el Batallador, 16. trasera. PAMPLONA. 


Commodore 64 





fmmim 



(^COMMODORE 64 2.995 pesetas/mes.") 

SOLICITE INFORMACION 

- 20 1.310 pesetas/mes") 

BOLETIN DE PEDIDO 

— Unidad de discos - 1541 (170K) 75.000 ptas. 

— Impresora Seikosha GP - 100 VC 49.500 ptas. 

— Unidad de cassette 10.500 ptas. 

— Adaptador de VIC - 20 ó C-64 a cualquier casse¬ 
tte 2.950 ptas. 

— Joystick Crackshot 2.500 ptas. 

— Ampliación de memoria externa de 16 K para 

VIC-20 12.300 ptas. 

— Más de 2.000 juegos disti-ntos, utilidades, libros 
nacionales y extranjeros 

Nombre y apellidos .... ...... 

Dirección y teléfono . . 

Deseo recibir más información 

Deseo adquirir . 

Precio total . 

Giro Postal . 

Talón adjunto . 

Talón conformado adjunto . 

Tarjeta VISA o Master Card número. 

Fecha caducidad 

FIRMA 


OOOOOOOOOOOOOOOOOOOOOOOOOO 
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Gráficos con 


Uno de los campos de mayor auge 
en la programación de ordenadores 
personales es, sin género de dudas, el 
desarrollo de juegos. Estos progra¬ 
mas se caracterizan, por lo general, 
por un empleo a fondo de las capaci¬ 
dades gráficas v de sonido del orde¬ 
nador. Además, un buen programa 
de juegos sólo se consigue con mucho 
trabajo, empleando todos los trucos 
de la máquina y conociendo a fondo 
todos los recovecos de la memoria, 
las rutinas del sistema operativo y un 
largo etcétera. De todas formas no 
hay que asustarse, ya que se pueden 
conseguir programas interesantes sin 
necesidad de llegar a estos extremos. 

En este artículo vamos a ver cómo 
manejar los gráficos y dibujar en la 


pantalla mediante instrucciones 
PEER y POKE, en lugar de utilizar 
instrucciones PRINT. Esta forma de 
actuar es uno de los truquitos em¬ 
pleados en la mayoría de los juegos, y 
además, el llegar a explicar su funcio¬ 
namiento nos va a permitir hablar de 
cosas tan interesantes como la estruc¬ 
tura de las memorias de pantalla y del 
color. 


LA MEMORIA DE PANTALLA 

La técnica de imprimir en la pan¬ 
talla mediante instrucciones POKE se 
basa en que, todo los caracteres o 
gráficos que aparecen en la pantalla 
en un instante dado, están contenidos 


en una zona de memoria RAM de¬ 
nominada memoria de pantalla. Si 
nosotros mediante un POKE escribi¬ 
mos algo en la memoria de pantalla, 
entonces ese algo aparecerá en la 
pantalla del televisor. De la misma 
forma, al leer con PEEK una posición 
de la memoria de pantalla podemos 
saber qué carácter hay depositado en 
la posición correspondiente de la 
pantalla del televisor. Esta forma de 
actuar tiene la ventaja, sobre la ins¬ 
trucción .PRINT, de ser mucho más 
rápida en la mayoría de los casos. 

La decisión sobré si conviene em¬ 
plear sentencias PRINT o escribir 
directamente en la memoria de pan¬ 
talla, dependerá en general del tipo de 
programa. Sobre esto no hay reglas 


Disección MP= Inicio de la memoria de pantalla 
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fijas y normalmente será la experien¬ 
cia del programador la que le permi¬ 
tirá escoger la forma más adecuada. 
Como norma, la instrucción PRINT 
es útil y rápida cuando se trata de 
imprimir grandes cantidades de datos 
o gráficos muy extensos. El problema 
surge cuando queremos imprimir ca¬ 
racteres o gráficos en posiciones de¬ 
terminadas de la pantalla, pues aun¬ 
que la instrucción PRINT es bastante 
rápida a la hora de imprimir, es sin 
embargo lenta cuando se trata de 
desplazar el cursor por la pantalla y 
situarlo en una posición determinada, 
antes de llevar a cabo la impresión. 

Este problema se ve agravado por¬ 
que el BASIC del Commodore 64 no 
dispone de la capacidad AT, dispo¬ 
nible en otras versiones del BASIC, y 
que utilizada en una sentencia PRINT 
permite realizar la impresión en cual¬ 
quier posición de la pantalla sin más 
que indicar las coordenadas X e Y 
(fila y columna) del punto donde va a 
comenzar la impresión. Esta lentitud 
es la principal razón por la que no se 
puede conseguir un juego de acción 
demadiado rápido escribiendo el pro¬ 
grama en BASIC. 

Sin embargo, utilizando instruc¬ 


ciones POKE es posible mover pe¬ 
queñas cantidades de datos por la 
pantalla a una velocidad aceptable. 

Para poder escribir directamente 
sobre la memoria de pantalla hay que 
saber cómo está organizada y qué 
direcciones de memoria ocupa. La 
pantalla del C-64 consta de 25 filas y 
40 columnas por lo que hay un total 
de 1.000 posiciones sobre las que se 
puede imprimir. El contenido de estas 
posiciones se guarda en 1.000 bytes de 
RAM, ordenados por filas, de forma 
que el byte de menor dirección se 
corresponde con el ángulo superior 
izquierdo de la pantalla, mientras que 
el de mayor dirección representa el 
ángulo inferior derecho de la misma. 
Esta organización tan sencilla puede 
verse en la figura 1. Cuando se 
enciende el ordenador, la memoria de 
pantalla comienza en la dirección 
1024 ($0400 en hexadecimal), pero es 
posible, y a veces muy interesante, 
colocarla en cualquier otra zona de 
RAM. 

Hay otra zona de memoria muy 
importante, con la misma estructura 
y organización que la memoria de 
pantalla aunque su dirección de co¬ 
mienzo es diferente, que se denomina 


memoria de color y en la que se 
almacena el color de cada una de las 
posiciones de la pantalla. Cuando 
queremos imprimir un carácter me¬ 
diante una instrucción POKE, ade¬ 
más de colocar el valor correspon¬ 
diente al carácter en la memoria de 
pantalla, hay que introducir el color 
que se desee para el carácter en la 
memoria de color. Si esto no se lleva a 
cabo el carácter no podrá verse al 
tener el mismo color que el fondo de 
la pantalla. La memoria de color, que 
también está constituida por 1.000 
bytes, ordenados por filas como ocu¬ 
rre en la memoria de pantalla, co¬ 
mienza en la dirección 55296 ($D800 
en hexadecimal) y al contrario que la 
memoria de pantalla, no puede mo¬ 
verse de su lugar, es decir, no es 
reubicable. 

Vamos a ver cómo calcular las 
direcciones de la memoria de pantalla 
y de la memoria de color sobre las 
que hay que escribir. Para empezar 
vamos a identificar cada posición de 
la pantalla por su fila (F) y su 
columna (C), tal y como hemos visto 
en la figura 1. Entonces, y sin más que 
observar dicha figura, es muy sencillo 
comprobar que las direcciones de la 
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memoria de pantalla y de la memoria 
de color correspondientes a la posi¬ 
ción de pantalla de la fila F y la 
columna C se obtienen de la siguiente 
forma: 

Dirección en la memoria de pantalla: 
DIRECCION=INICIO MEMORIA 
DE PANTALLA + C + 40*E 
Dirección en la memoria de color: 
DIRECCION=INICIO MEMORIA 
DE COLOR + C + 40*F 


Siendo las direcciones de inicio de 
la memoria de pantalla v de la me¬ 
moria de color las que ya hemos 
indicado. 

Un aspecto importante que convie¬ 
ne señalar es que los códigos de 
carácter e introducir en la memoria 
de pantalla mediante POKE no son 
los códigos ASCII de la instrucción 
CHRS, sino que son valores que 
representan la posición del carácter a 



Figura 4 



NUMERO DE LINEA 


45 - 46 


70 - 105 


I I 0 


115 


125 


130- 140 


145 


150-155 


imprimir, dentro de la ROM genera¬ 
dora de caracteres. El motivo de 
utilizar estos valores, en lugar de los 
valores del código ASCII, está en 
que, de esta forma, el sistema puede 
acceder mucho más rápidamente a la 
información sobre la forma del carác¬ 
ter, al dirigirse directamente a la 
ROM generadora de caracteres. En la 
tabla 1 pueden verse los códigos de 
PEEK y POKE correspondientes a 
todos los caracteres. A la hora de 
escribir cualquier programa es muy 
importante tener en cuenta la exis¬ 
tencia de estos dos códigos de carac¬ 
teres diferentes, v no confundir entre 
uno y otro. 

Una vez calculada la posición de la 
memoria de pantalla sobre la que hay 
que escribir el dato, como acabamos 
de ver, es muy sencillo dar un paso 
más que nos va a permitir movernos 
por toda la pantalla sin necesidad de 
recalcular de nuevo las direcciones de 
memoria correspondientes a las nue¬ 
vas posiciones de la pantalla. En 
efecto, debido a la organización de las 
memorias de pantalla \ de color, es 
muy sencillo calcular la dirección de 
las casillas adyacentes a una dada. 
Como puede verse en la figura 2, 
sumando a la dirección —1 ó +1 nos 
podemos desplazar una posición a la 
izquierda o a la derecha respectiva¬ 
mente, mientras que si sumamos —4 
ó +4 podemos desplazarnos hacia 
arriba o hacia abajo. Los desplaza¬ 
mientos en diasonal se obtienen su- 
mando a la dirección una combina¬ 
ción de los anteriores valores tal y 
como puede verse en la figura 2. 

Para conseguir la sensación de 
movimiento basta con desplazar el 
carácter de una posición a otra utili¬ 
zando instrucciones POKE y acor¬ 
dándose de imprimir un espacio en la 
posición anteriormente ocupada, si 
no se desea que el carácter vaya 
dejando una traza tras de sí. 

Para experimentar con todo lo que 
llevamo> d:cho. presentamos un sen¬ 
cillo programa que hemos llamado 
EL BOLIDO y que permite controlar 
desde el teclado el movimiento de una 
pequeña pelota por la pantalla. Las 
teclas utilizadas para hacer que la 
pelota se mueva en una determinada 
dirección pueden verse en la figura 3. 
El programa incluye algunas ideas 
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10 R E M # M # # # ¡f if: # : M # 4 
13 REM * sf 

28 REM $ EL BOLIDO * 
25 REM * ¡f 

30 REM #####$#### ##$■ 


"i 1 T~ 

."i. I 


40 REM 

45 MP~ 1024 : MC-552!?6 : PF:—í ::r i m ñ 
50 PRINT\T 

5b PRINT U $L BORRñ LR PRNTRLLR" 

60 INPUT 15 WUflWTTRñZñ ÜCULTR (.SAO " ; F'$ 

65 PEINT"EL 
»■ 0 P UE • J—0 fO 33 

7 b P U K E M P•+■J .• 16 O : F : Ü K E M P •+■ J + 3 6 @i F, 0 
30 F’QKE MC+J, 0 : POKEMC+ .13-030 . ñ " 

35 NEXTJ 

90 FOR J=0 TO 24 

95 F'OKE MP+40# J.. 160 : PGKEMP+40*J-1, Í60 
100 F'OKE MC+40$Jb O ; P0KEMi":+4M*.T-l .0 
105 NEXT J 

110 F’OKE PC+MFb 81 : POKEPC+MC, 5 
115 GET R$ 

120 IF Fl$~""TPIEN 145 . 

125 I Fñ$= ,s L " THEN65 

130 D“ <39RNDR$=" 2 " > •+• < 40 hND Mí =" X ,! > •+• 4 i 
135 D=-<39RND R*=“E" >-<4@ RND fi$= ,, W n )-<41 


149 B~a RND ñ$="D n 
145 IF PEEKXMP+PC+D 

150 PÜKE F’C+MP > 32+ (49 RND F$="N"? 
1 b 5 F* C - P C + D ; G O T O í 10 


Fi$= " C " > 
B R$~"Q 


< 1 HMD fl$="fi") 
=16ü THEN 115 


IFDO0THEN145 
• IF DO0 THEN 145 


interesantes que vamos a comentar. 

En primer lugar el progrma dibuja 
el reborde de la pantalla, para evitar 
que la pelota pueda salirse y que nos 
encontremos POKEando valores en 
quién sabe qué posiciones de memo¬ 
ria. El reborde se sibuja con las líneas 
70 a 105. Para saber si la pelota ha 
llegado al borde, antes de dibujarla en 
su nueva posición, se lee mediante un 
PEEK dicha posición y si el valor 
leído es el que corresponde al carácter 
con que se construye el borde, en este 
caso 160 (espacio inverso), entonces 
la pelota se queda quieta. Esta com¬ 
probación se lleva a cabo en la línea 
145. También el programa ofrece la 
posibilidad de que la pelota vaya 
dejando o no traza en su movimiento. 
Esto se consigue imprimiendo o no 
un carácter en blanco en la posición 
anterior de la pelota, según el valor de 
la variable F$. Este borrado o no del 


carácter se lleva a cabo en la línea 
150. 

Las variables utilizadas por el pro¬ 
grama son: 

MP = Inicio de la memoria de pan¬ 
talla. 

MC = Inicio de la memoria de color. 
PC = Posición de la pelota (inicial¬ 
mente PC=500) 

D = Desplazamiento a la siguiente 
posición 

F$ = Traza vista u oculta 

En la figura 4 presentamos el orga¬ 
nigrama o diagrama de flujo de este 
programa, para que sea sencillo en¬ 
tender y seguir su funcionamiento y 
pueda comprenderse cómo hace uso 
de las ideas que hemos desarrollado 
hasta ahora. 

SERPIENTE Y ACORRALADO 

Fiemos dicho que la técnica de 


imprimir gráficos mediante instruc¬ 
ciones POKE se utiliza en un gran 
número de programas de juego, debi¬ 
do fundamentalmente a la velocidad 
que permite conseguir en el despla¬ 
zamiento de caracteres por la panta¬ 
lla. Como ejemplo de ello presenta¬ 
mos a continuación dos juegos, ba¬ 
sados én esta idea. 


SERPIENTE 

En este juego el jugador dirige el 
movimiento de una “serpiente” que 
se desplaza por la pantalla. El objeti¬ 
vo es alimentar a la serpiente, para lo 
cual es necesario hacerla llegar a 
ciertos bloques de alimento que apa¬ 
recerán en posiciones aleatorias de la 
pantalla. Un número acompaña a 
cada bloque indicando las calorías del 
mismo, éstas van disminuyendo con 
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el tiempo por lo que es importante 
que la serpiente se zampe cada bloque 
cuanto antes, antes de que pierda 
todo su valor alimenticio. A medida 
que se va alimentando, la serpiente va 
haciéndose más y más larga y con ello 
más difícil de controlar. El juego 
termina cuando la serpiente choca 
con el borde de la pantalla o con ella 
misma, apareciendo entonces la pun¬ 
tuación que ha conseguido el jugador. 


Para controlar el movimiento se em¬ 
plean únicamente dos teclas; “N” 
para girar a la izquierda y “M" para 
girar a la derecha. 


ACORRALADO 

Este segundo ejemplo del empleo 
de los gráficos con PEEK y POKE es 
un juego en el que hay que vencer al 


ordenador. Ambos, jugador y orde¬ 
nador, van trazando una línea por la 
pantalla. El jugador controla el dibu¬ 
jo de la suya mediante las teclas: 

W = Arriba 
X - Abajo 
A = Izquierda 
D = Derecha 

Hay que tener en cuenta que mien¬ 
tras no haya ninguna tecla pulsada, la 
línea continúa dibujándose en la 



£ 

10 rem wmmmmm* 

15 REM * * 

20 REM * SERPIENTE * 

25 REM * * 

30 REM ************* 

35 REM 

40 DIM S<1000> : H <1>=40 : H(2) = 1 : fl(3)=-40 : H<4 ) =-1 

45 SM=1024 : CM=55296:HS=0 

50 SC=0 : T=1521 ; H=1525: L=5: J= 1 : F'R I NT" □" 

55 FOR K-CM TO CM+999: PÜKEK,7: NEXTK 

60 FOR K-SM TÜ SM+39 : PÜKEK> 160 : POKEK+40.-160 : F’ÜKEK+960; 160 : NEXTK 

65 FOR K=SM TO SM+960STEP40 • PÜKEK, 160 *• POKER-1, 160: NEXTK 

70 FOR K=T TÜ H : PÜKEK,87 : NEXTK 

75 FOR K-l TÜ L-SOO=T+K“1 : NEXTK 

80 F'H^L+l : PT=1 

85 PRI NT" JMSMPUNTOS"; SC; TftB <12 ); " LÜNGITUD n ; L ; TñB<28 ) ; " RECORD " ; HS 

90 ÜETKT 

95 IF K$="N"THEN J=J+1:IFJ=5 THEN J=1 

100 IF K$="M" THEN J=J-1:IFJ=0THEN J=4 

105 H-H+H< J ) : SQ-PEEK<H >•V=SQ-48 

110 IF SQ=160 THEN 195 

115 IF SQ=87 THEN 195 

120 IF SQ*32 THEN 130 

125 F=F+V : SC—bC+V ; UV = 0 : L—L+V 

130 S < F’H > =H : PH-PH+1 

135 POKEH,87 

140 IF FO0 THEN F=F-1 : GOTO 150 

145 POKE S < F'T > .« 32 : F’T=PT + i 

150 IF PT>1000 THEN PT=1 

155 IF PH>1080 THEN PH=1 

160 IF RND<0X0.01 THEN CV=9 

165 IFCVC10 THEN CV=0: IFPEEK<CPX>87 THEN PÜKECP,32 

170 IFCVO0 THEN CV=CV-1 •' PÜKECP, I NT < CVX10) +48 : GOTO 185 

175 IF RND<0X0.8 THEN 185 

180 CV= 100 : CF-SM+1000#RND<0> : IFPEEK<CP>032 THEN 180 

185 FOR K-l TO50:NEXTK:REM ESTE RETARDO PUEDE REDUCIRSE PflRR MRVOR VELOCIDAD 

130 GOTO 85 

195 ÍF SOHS THEN HS=SC 

200 PR 1 NT"aaiaFUNTOS"; SC; TñB< 12);" LÜNGI TUD”; L; TñB< 28 >;"RECORD", HS 

205 FOR K-l TO 200 : NEXTK 

210 PRINr'MHWPWmiaiaFULSE ESPfiCIO PñRfl CONTINUAR" 

215 GET K$ ; IFK$=" "THEN50 

220 GOTO 215 
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10 rem ************** 

15 REM * * 

20 REM * ACORRALADO * 

25 REM * * 

30 REM ************** 

OJ=¡ Dphj 

40 FOR J=1 TO 8 : READACJ> : NEXTJ 
45 SM=1024:CM=55296¡ BT=0 


cr 


"S' 

* A « 

« 0 n 

i» p t» 


0 DATA 40.. -40,1.. -1,40, -40 , 1, -1 
55 F'R I NT "3" = FORK-CM TO CM+933: F'OKEK, 7: NEXTK 

60 FOR K=SM TO SM+33 : F'OKEK/160 ; F’OKEK+48,160 : PÜKEK+960,160 : NEXTK 

65 FORK=SM TO SM+960 STEP 40: POKEK, 160: F'OKEK-1,160 : NEXTK 

70 XM=A (I NT < RND (. 0 > *4+1 >>: VM=A < I NT < RND í 0 ) *4+1 >>■ X=530: V=545: T=T I ME: M= 1 

75 POKESM+X, 160: PQKECM+X, 3 : F'OKESM+V, 160: POKECM+V, 5 

80 FOR K=1 TO 70:REM «RETARDO PARA LA VELOCIDAD* 

85 PRI NT " as|jS»Í»»»Í»»IT I EMF'O "I NT < ( TIME-T > /60 ) j TAB (20) ; " MEJOR TI EMF'O" 1 BT 
30 M=0 ; GETK$ 

95 IF K$="D" THEH M=1 
100 IF K$="A" THEN M=-l 
105 IF K$="W" THEH M=-40 
110 IF K$="X" THEN M=40 
115 IF M=-XM THEN 125 
120 IF MO0 THEN XM=M 
125 X-X+XM 

130 IF' F'EEK (. SM+X>032 THEH GOTO 215 
135 POKESM+X,160:POKECM+X,3 
140 IF RND<0)>0.9 THEN 165 
145 FOR J=1 TO 3 • 

150 IF F'EEK(SM+V+J*VM>032 THEN 165 
155 NEXTJ 
160 GOTO 200 
165 M=INT<RND<0)#4+1) 

170 FOR P=1 TO 3 
175 FOR Q=M TO M+3 
180 VM=ACQi 
185 FOR R=1 TO 4-P 
130 IF F'EEK<SM+V+R*VMK>32 THEH 205 
195 NEXT R 

200 V-V+VM: F'OKESM+V.. 160:POKECM+V.■ 5: G0T085 
205 NEXTQ:NEXTP 

210 PRINT"í»«S»iÍ*|i****Í*Í*»»»IGANASTE! ! ” :GOTO220 
215 F'RINT".^«4£«|iÍ|iÍÍ»Vli»»»>«»IHE GANADO!!" 

220 T= CTIME-T),"'60 : IF T>BT THEN BT= INT<T) 

225 FOR T=1 TO 2000:NEXTT 

235 F'RINT"^4»»Í»»ÍKÍ1ÍP!JL3A ESPACIO PARA CONTINUAR 


240 GETK*:IFK$=" 
245 GOTO 240 


II 


THEH 55 


misma dirección que llevaba y que 
tampoco habrá ningún ^cambio de 
dirección si se intenta que la línea 
vuelva sobre sí misma, en dirección 
opuesta a la que hasta ese momento 
traía. El ordenador, por su parte, 
también va dibujando su propia línea. 
El objetivo del juego es sobrevivir 


tanto tiempo como sea posible sin 
tropezar con ninguna de las dos líneas 
ni con el reborde de la pantalla. Lo 
ideal es acorralar en un primer mo¬ 
mento al ordenador y luego esperar 
tranquilamente, moviéndose con cui¬ 
dado, a que se estrelle con nuestro 
cerco, pero claro, el ordenador no es 


tonto y acorralarle no es tan sencillo 
como pudiera parecer. 

Con estos dos juegos hemos queri¬ 
do mostrar cómo, con la técnica de 
impresión de gráficos mediante 
PEEK y POKE, es posible conseguir 
efectos de movimiento muy interesan¬ 
tes y bastante rápidos, todo ello sin 
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emplear más que unas pocas instruc¬ 
ciones. 

MODO DE EXTENSION DEL 
COLOR DE FONDO 

Este modo es una forma un poco 
diferente de utilizar la memoria de 
pantalla y permite que el color de 
fondo de cada posición sea diferente, 
a elegir entre cuatro posibles colores. 
Para entrar en este modo hay que 
poner a "1" el bit 6 de la posición de 
memoria 53265 (SD011 en hexadeci- 
mal) que corresponde a un registro 
del chip VIC II (Controlador del 
Interface de Video). Desde un pro¬ 


grama en BASIC la entrada v salida 
de este modo se pueden conseguir 
sencillamente mediante el siguiente 
par de instrucciones: 

Para entrar en el modo: 

POKE 53265,PEEK (53265) OR 64 

Para salir del modo: 

POKE 53265,PEEK (53265) AND 
191 

La desventaja de trabajar en este 
modo de extensión del color de fondo 
está en que sólo se pueden imprimir 
en la pantalla los primeros 64 caracte¬ 
res de los reseñados en la tabla 1. Esto 
se debe a la forma de funcionamiento 
de este modo, ya que de los 8 bits de 


cada posición de la memoria de 
pantalla, sólo los 6 primeros se em¬ 
plean para el código del carácter. Los 
dos bits que quedan, bits 6 y 7, se 
utilizan para seleccionar una entre 
cuatro posibilidades para el color de 
fondo del carácter. 

¿Cuáles son los cuatro colores que 
se pueden emplear? Esto lo decide el 
programador. \a que puede escoger 
cuatro colores cualesquiera entre los 
16 de que dispone el C-64. Lo único 
que tiene que hacer cuando haya 
seleccionado los cuatro colores es 
introducir en las posiciones de me¬ 
moria 53281 a 53284 los números que i 
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52 REM 

% 
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35 PRINT" 
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85 
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36 PRINT" 
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11 REM 

ñ 
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54 REM 
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44 

97 PRINT" 
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87 

12 REM 
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55 REM 


45 

98 PRINT" 
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13 REM 

c 

•Z* 

56 REM 

a 

46 
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1 

89 

14 REM 

¿i 
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57 REM 
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/ 

47 

100 PRINT" 

♦ 

90 

15 REM 

E 
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58 REM 

0 

48 

101 PRINT" 

4 

91 

16 REM 

F 

6 

59 REM 

1- 

43 

102 PRINT" 

$ 
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17 REM 
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I* 

60 REM 

Cm 
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103 PRINT" 

1 
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18 REM 

H 

fj 

61 REM 

•***» 
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51 

104 PRINT" 

TT 

94 

19 REM 

I 

Q 

62 REM 

4 

52 

105 PRINT" 


95 

20 REM 

J 

10 

63 REM 

irr 

5 o 

106 F'R I NT " ESPñC 

10 

36 

21 REM 

• *• 

t\ 

11 

64 REM 

6 

54 

107 PRINT" 

1 

37 

22 REM 

L 

12 

65 REM 

i 

< 

55 

108 PRINT" 

m 

98 

23 REM 

M 

13 

66 REM 

o 

56 

109 PRINT" 


99 

24 REM 

N 

14 

67 REM 

9 
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•J ( 

110 PRINT" 


100 

25 REM 

Ü 

15 

68 REM 

• 

58 

111 PRINT" 

1 

101 

26 REM 

P 

16 

63 REM 

.i 

53 

112 PRINT" 

% 

102 

27 REM 

0 

17 

70 REM 

< 

60 

113 PRINT" 

1 

103 

28 REM 

R 

18 

71 REM 

•m— 

61 

114 PRINT" 

at 

104 

29 REM 

l"’* 

,~l 

13 

72 REM 


62 

115 PRINT" 

r 

105 

30 REM 

I 

20 

73 REM 


63 

116 PRINT" 

l 

106 

31 REM 

u 

21 

74 PRINT" 

— 

64 

117 PRINT" 

h 

107 

32 REM 

y 

i 
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75 PRINT" 

1^1 
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118 PRINT" 

■ 
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33 REM 

w 
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1 

66 

119 PRINT" 

L 
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34 REM 
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24 
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•— 

6 1 7 

120 PRINT" 

"1 
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35 REM 

V 

25 
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—— 

68 
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36 REM 

—t 

/ 
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69 
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37 REM 

[ 

27 

80 PRINT" 
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_L 
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38 REM 

£ 
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81 PRINT" 

1 

71 

124 PRINT" 

T 
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39 REM 

] 

23 

82 PRINT" 

1 

72 

125 PRINT" 

4 
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40 REM 

t 

30 

83 PRINT" 
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-7 
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126 PRINT" 

1 
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41 REM 

+- 

31 

84 PRINT" 
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127 PRINT" 

« 
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42 REM 
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1 
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43 REM 
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44 REM 
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45 REM 

# 
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46 REM 

$ 
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89 PRINT" 

r 

73 

132 PRINT" 

J 
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47 REM 
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fm 
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90 PRINT" 

i 
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133 PRINT" 

i 
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48 REM 

& 
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91 PRINT" 

• 

81 

134 PRINT" 

a 
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43 REM 
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92 PRINT" 


«—»—i 

135 PRINT" 

J 
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50 REM 


40 

93 PRINT" 

¥ 

83 

136 PRINT" 

■ 

126 

51 REM 

> 

41 

94 PRINT" 

i 

84 

137 PRINT" 

“« 

127 
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representan a cada color, que son los 
indicados en la tabla 2. Supongamos 


que se decide trabajar con los cuatro 
primeros colores como colores de 


fondo. Entonces hay que introducir 
en las direcciones 53281 a 53284 y sin 
que sea excesivamente importante el 
orden, los valores 0, 1, 2, y 3 corres¬ 
pondientes a los colores elegidos. A 
partir de ahora donde hay que fijarse 
es en la tabla 3, donde se puede ver 
cómo obtener el código a POKEar en 
la memoria de pantalla. En esta tabla 
se ve por ejemplo, que para imprimir 
un carácter cuyo color de fondo sea el 
que hemos puesto en la posición 
53283 (el rojo, por ejemplo, si en 
dicha posición hemos puesto el valor 
2), el valor que hay que POKEar en la 
memoria de pantalla es el valor nor¬ 
mal de la tabla 1. más 128 para poner 
“1” y “0" en los bits 7 y 6 en la 
memoria de pantalla. Todo esto, 
aunque parece complicado al princi¬ 
pio es cuestión de que cada uno 
experimente por su cuenta y observe 
qué es lo que ocurre en cada caso, de 
esta forma y después de unos cuantos 
ensayos y algunas equivocaciones se 
comprenderá perfectamente el fun¬ 
cionamiento. 
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solo 500 
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ptas. mensuales 
podrás cambiar tus 
j programas cuantas 
veces quieras. 

s de 300 títulos y los 30 
sellers" en Inglaterra. 


vacion 


microo 


um i 


‘Edificio Atlántida’' - Provenza, 281,5. a 
Tei. 215 83 37 - Barceiona-37 


C= commodore 


Los canjes también pueden hacerse por correo o mensajería. 













































El sencillo programa del capítulo 
anterior permite situar el carácter que 
seleccionemos por teclado en una 
posición definida de la pantalla, para 
ello se procede a rastrear la pantalla 
desde la posición 32900 hasta 32900 + 
750 (con un asterisco). Si en estas 
condiciones situamos el lápiz sobre el 
mismo en cualquier instante de su 
recorrido, será automáticamente sus¬ 
tituido por el carácter seleccionado; el 
programa está preparado para fun¬ 
cionar en lazo continuo y se sugiere 
experimentar, modificándolo para 
aceptar caracteres especiales (sólo se 




han previsto los ASCII, habría que 
modificar las conversiones en la línea 
1017) y extendiéndolo al total de la 
pantalla; haciendo qüe se visualize un 
mensaje alfanumérico de n caracteres, 
etcétera. 

En cualquier caso, el estudioso 
comprobará que la principal limita¬ 
ción de este tipo de lápiz óptico 
controlado desde el BASIC es. lógi¬ 
camente, la limitada velocidad y la 
muy pequeña inmunidad al ruido. 
Por lo que respecta a la velocidad, 
ésta puede ser incrementada en forma 
medianamente aceptable sin necesi¬ 


dad de acudir a la programación en 
código máquina, utilizando los com¬ 
piladores disponibles DTL, PETS- 
PEED e incluso, el simple y “miste¬ 
rioso FAS! ER BASIC, que actúa 
sobre las comparaciones IF THEN y 
las GO I O. sin necesidad de compilar 
los programa^ 

Por desgracia, la eliminación del 
ruido (en este caso tanto el ruido real 
del integrado, como las señales inde¬ 
seables producidas por reflejos, etc.) 
sólo puede ser alcanzada haciendo 
que el carácter que se utiliza como 
rastreador parpadee a elevada veloci- 


NUMERO 7 


























dad, mientras se toma un número lo 
suficientemente elevado de lecturas 
del Pon (5 por lo general), que 
permita por medias o mejor aún, por 
redundancia, eliminar las señales in¬ 
deseables, en la fig. 7 se indica esque¬ 
máticamente el proceso: 


LAPIZ OPTICO CONTROLADO 
POR HARDWARE 


Los modelos de microordenadores 
más recientes cuentan con un hard¬ 
ware específico que puede determinar 
la posición real del SPOT sobre la 
pantalla, tal sucede con los modelos 
Vic-20 y 64, p. ejemplo, que utilizan 
para ello el sofisticado v complejo 
V.I.C. (VIDEO INTERI'ÁCE CHIP). 
que controla v almacena, todos los 
datos del posicionamiento del lápiz 
óptico. 

El hardw are necesario para un lápiz 
de este tipo se diferencia fundamen¬ 
talmente en no precisar de un efecto 
de LACHT (v por tanto, de una línea 
de Reset) para su correcto funciona¬ 
miento. 

En la fig. 8 se presenta un sencillo 
circuito que permite realizar expe¬ 
riencias en este sentido: 

Como puede verse en la misma se 
utiliza un Trigger de Schmitt que 
detecta el paso de TI desde el estado 
de corte al de saturación por su 
entrada 10 (al emisor del transistor). 
Las entradas 13, 12 y 11 se encuen¬ 
tran fijadas a positivo mediante la 
resistencia R1 y el nivel de sensibili¬ 
dad puede regularse con el P1 y 
aunque no alcanza valores elevados, 
resulta suficiente para la mayor parte 
de las aplicaciones. 

Antes de proceder a la prueba de 
este circuito, es interesante comentar 
algunas características de las posicio¬ 
nes de memoria asociadas que se 
especifican en la fig. 9 (referidas al 
Vic-20). 

A partir de esta información, una 
vez comprobado el funcionamiento 
del circuito del lápiz y su sensibilidad 
a la luz por métodos equivalentes a 
los descritos con anterioridad, se 
puede entrar un simple programa, 
como el indicado, que permite reali- 




LP 


Figura 8.1. Circuitos. 


NUMERO 7 





































































































zar comprobaciones* en distintas zo¬ 
nas de la pantalla. 

El lápiz descrito puede dar dificul¬ 
tades en programas en los que se 
juegue con caracteres de distintos 
colores, debido a la no igualdad de la 

V- 

respuesta espectral del transistor y al 
comprometido ajuste del bascula- 
miento del Trigger. Aunque, desde 
luego, éste puede ser retocado va¬ 
riando el valor de R1; sería preferible 
utilizar un foto-Darlington o mejor 
aún, un Triggerde umbral ajustable, 
realizado con un amplificador opera- 
cional, como el que se indica en la 
figura 10. 

Su funcionamiento es como sigue: 
el TI montado para salida por colec¬ 
tor ataca a un comparador realizado 
con el 3140 que toma su referencia de 
R3, R4 (entrada inversora) a través de 
su entrada no inversora (R2). La 
realimentación proporcionada por 
R5 provoca el basculamiento enérgi¬ 
co de la salida del operacional con 
pequeñas variaciones de VCE. Los 
diodos en antiparalelo a la entrada 
del 3140 actúan como protección 
contra sobretensiones en ésta, provo¬ 
cadas por iluminaciones excesivas sin 
disminuir la sensibilidad del disposi¬ 
tivo para niveles luminosos más mo¬ 
destos (-que provocan entradas dife¬ 
renciales menores que la tensión um¬ 
bral de dichos diodos). 

Se incluye un interruptor analógico 
de estado sólido en tecnología MOS 
(CD 4066) controlado por un pulsa¬ 
dor que permite disponer de una 
salida de SENSE exenta de rebotes 
que indica si se desea activar el lápiz 
(= “1") o no (= “(T). En una 
realización experimental puede ser 
difícil el situar este pulsador sobre el 
lápiz óptico, en forma de que su 
manejo no resulte demasiado engo¬ 
rroso durante la exploración de la 
pantalla (los modelos comerciales se 
benefician en este aspecto de más 
sofisticados diseños, así los hay que se 
activan por contacto de la punta 
contra la pantalla y también por 
presión lateral entre el pulgar y el 
índice, etc.). 

La conexión de este lápiz óptico 
por lo demás es idéntica a los anterio¬ 
res, excepto por el sense que debe 
conectarse a la patilla # 1 áejoysticky 





Figura 8.2. Placa de circuito impreso. 



Figura 8.3. Señales. 
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POSICIONES TOTALES PARA EL L.O. 

(4 x 22 COLUMNAS )><(4 x 23 FILAS) = 

= 8096 


Registros asociados al v.i.ü./ lp 

DIRECCION 

CONTENIDO 

(^)VARIACION 

SOLO 

PANTALLA 

ID+DORDE 

36870 

X 

32-119 

30-122 

36871 

Y 

24-115 

17-121 


100 PX=36870 : PV=PX'+1 
118 X -PEEK (X) : VPEEK C V > 

120 PEINT "LAPIZ EN X-V";X,v 

100 GOTO 110 (*) PUEDE VARIAR SEGUN UNIDAD. 


Figura 9. Organización de la pantalla para el lápiz óptico. 


+ 5 V 


R1 
1 K 


P1 


10K 


R3 
10 K 



R 2 
330 K 


T I L 81 



R 5 
) M 


R6 
1 K 


C 2 
10/tF 

ü^Jtl 




RA 
10 K 





1/4CD4 0 


66 



2 pf 


SENSE 

T*i 


LP 

R7 

50K 




Figura 10. Otro posible circuito de lápiz óptico. 
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Figura 11. 

Formato de la pantalla para 

el “Vic-Paleta ”. 



Figura 12. Diagrama de flujo de la operación con el lápiz óptico. 


cuya activación puede controlarse 
por: 

(PEEK (37151) AND 4) (= O NO 
ACTIVADO) 

Con lápices de este tipo pueden 
realizarse programas altamente com¬ 
plejos, como el que sigue adaptado de 
un programa “demo” original U.S.A. 
y que parte de una organización de la 
pantalla como la de la figura 11. 

Este programa, llamado VlC-Pale- 
ta, en esencia sustituye con ventaja en 
cuanto a rapidez y velocidad, la 
utilización del teclado como medio de 
entrada de datos, para ello se deben 
seleccionar las opciones en el orden 
que indica^el diagrama de flujo de la 
flg. 12. 

Los comandos PUNTO v LINEA 
permiten trazar una imagen y una 
línea con el punto anterior, respecti¬ 
vamente. Los OFF y ON permiten 
activar v eliminar la función “RE¬ 
VERSE^. 

El listado del programa puede ver¬ 
se en la fig. 13; se encuentra suficien¬ 
temente aclarado con sentencias 
REM. por lo que sólo interesa desta¬ 
car el sistema utilizado para eliminar 
el “ruido " por redundancia aritméti¬ 
ca. Este sistema consiste, en esencia, 
en la toma de siete medidas de las 
lecturas del lápiz óptico al jif'fy de 
intervalo, cada una; calculando pos¬ 
teriormente la media de las mismas. 

Como quiera que la realización de 
este proceso sería imposible desde el 
BASIC en condiciones de velocidad 
aceptable; se incluye un programa en 
código máquina, que es cargado por 
las sentencias DATA desde 760 a 820 
sobre direcciones correspondientes al 
buffer del cassette . que por sus carac¬ 
terísticas de dirección protegida resul¬ 
ta idónea para estos fines (¡¡impor¬ 
tante, el uso del cassette puede des¬ 
truir esta subrutina!!) y que se activa 
por SYS (828) en 240. 

En la fig. 14 se incluye el listado 
desensamblado de la rutina en má¬ 
quina por el innegable interés de su 
aplicación en otros programas. 
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210 

220 

230 

240 

250 

260 


100 REM VIC PALETA ^:¿:4c:♦::♦:^:♦;:4;:♦;:4:/»::*:^♦::+: :+::t:4:4c•+: 

105 REM <ADAPTACION DE RUT. D. MALM. > 

120 DIMCC<7 >:P0KE36879,27:CL=3:SS»7680:IC=39720 

130 DEFFNA<Z >=SS+CN+22*RW ■ DEFFNB<Z >®FNA<Z)+IC:DEFFNC<Z >*PEEK<FNA<Z >> 
140 FORI-1T07:READCC<I>:NEXT 
150 DATA144,28,159,156,39,31,158 
160 GQSUB760 

170 PRI NT " " : PC=*32 : RV-0*LN®0: LX*0: LY®0 
180 FORI=64T0127:PÚKESS+I-64,I:PQKESS+I+IC-64,CL:NEXT 
190 PRINT"B ORRA P UNTO L INEA O N O FF" 

FOR I * 1T07 : PR I NTGHR$< CC< I > >" " : NEXT 

REM TEST DEL SWITCH =«== 3 * 5 ===«^^============r= ; r 5 ===:======== 2S: =: 

LT=-< <PEEK< 37151>AND4>=0>:IFLT-0THEN22O 
REM LECTURA =============== 3 ======^=== :: ==:== 

SVS<828 >:GN*PEEK<934>:RU=PEEK<985> 

L«FNA<O>:LC»FNC<O> 

REM POSICION LAPIZ = = ==^ = ! ====r=^^rr.r=^=,r-^=^ S ^^= 2 = 5 = = = = 

IFRH>4THEN520 
IFRW< 4THEN340 
REM COLOR 

X® I NT< < CN+1. 1 V3 >: Y=< CN+1 V3 
I FX< >YTHEN220 : REM NO VALIDO 
IFX=1THENX»0 

P0KE36879,24+X:CL-X:G0T0450 
IFRW<3THEN430 

REM COMANDOS = = = s===~ = s=:= —==:= — == “=3 r= = =r==== =3 = ra ===:== sena 

IFCN*0THEN170 :REM BORRA 
IFCN-3THENLM=0:GOTO450 :REM PUNTO 
IFCN-15THENLN-1:GOTO450:REM LINEA 
IFCN-22THENRV®1:G0T0450:REM REVERSE 
IFCN®25THENRV®0:GOTO450:REM REVERSE OFF 
GOTO220 :REM NO VALIDO 
PC»LC 

REM- POSICI ONADO FLASH eo««a*«as*s*a* 8S a*Mf B Be*«*a*a a iB 
S=0:IFLC >127THEN$=LC:LC*LC-128 
P0KE36878,15:FORI-lYoi© 

POKEL,LC+128 sP0KE36876,225 

POKEL,LC:P0KE36876,195 
NEXT:IFS<>0THENPOKEL,S 
P0KE36878,0:P0KE36876,0:G0T0220 

REM RUTINAS DE DIBUJO »a«*a**==*««=*r*aaa aB8 , a *e B a Maa *«*s M 
V=PC : i FRV-1 THENV*PO 128 
IFLN«0THEN590 

POKEFHA's 0 >, V : POKEFNBÍ O > , CL 
L.X-CN: LY®RW 
570 GOTO220 

580 REM LINEA DESDE EL ULTIMO PUNTA 

590 BX=CN-LX:DY-RH-LY 

600 Z=ABS<DX >:IFABS<AY »ZTHENZ«ABS<DY> 

610 I FZ=0THEN I X«0: I Y®0: G0T0630 
620 IX~DX/Z 

630 FOR1=0TOZ:RW®INT<LI +1Y*1+0.5>:CN»INT<LX+1X*I+0.5 > 

640 POKEFNAC 0 >,V:POKEFNBC0>.CL 
650 NEXT:LX«CN:LI*RW:G0T0220 

660 RUTINA EN C. M. ra ««n«»»*a S « a » 9 . S8SSa! »s»B« a i««. ava 

665 REM 982 ■ VALOR H <0-87 >: 983 « VALOR VERTICAL <0-91> 

666 REM 984 = COLUMNA <0-21): 985 ® FILA < 0-22 > 

760 FORI«828T0986:READDC:POKEI,DC:NEXTI 


280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

430 

440 

450 

460 

470, 

480 

490 

500 

510 

520 

530 

550 
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77© DATA162.0.160,3, 132, 152, 173,6, 1*14 
780 DATA201,32,176,2,169,32,201,120.144 
790 DATAi69,119,56,233,32,160,219,132 
800 DATA151,32,179,3,165,151,24,109,218 
810 DATA133,151,144,2,230,152,173,7 
820 DATA144,261,24,176,2,169,24,201,116 
830 DATA144,2,169,115,56,233,24,32,179 
840 0ATA3,232,236,218,3,240,9,165,162 
850 DATA197,162,240,252,76,62,3,173.218 
860 DATAS,74,163,177,151,141,215,3,169 
870 DATA219,133,151,169,3,133,152,177 
880 DATAISi,141,214,3,173,214,3.74,74 
890 DATA141,216,3,173,215,3,74,74,141 
900 DATA217,3,96.142,214,3,172,214,3 


910 

920 

930 

940 

DRTR192, 
DRTR176, 
DRTR200 , 
DRTR176 , 

0.240,22,136 , 209,151,200 

16,136,141,214,3,177,151 
145,151,136 , 173 , 214 , 3 , 56 
230,145,151,96,0,0,0,0,7 








Figura 13. 

Listado del 

programa “Vic-Paleta’\ 








m • 

033ft 

FF 



??? 



9 .■ 

0389 

05 

02 


CMP 

*02 

■ } 

033B 

11 

90 


flpfl 

<*90> , Y 


■ t 

038B 

F0 

FC 


BE© 

*0309 

m 

033D 

1C 



? 7”? 



• j 

0380 

40 

3E 

03 

JMP 

*033E 

9 J 

033E 

9F 



??? 



• 

a « 

0390 

00 

DR 

03 

LOR 

*03DR 

« .» 

033F 

90 



??? 



m y 

0393 

40 



LSP 


fe ,i 

0340 

1E 

1F 

9E 

0SL 

*9E1F J X 


• .• 

0394 

08 



TRY 


* » 

0343 

R2 

00 


Lt>X 

#*00 


* t 

0395 

B1 

97 


1 Dfl 

í*97> , Y 


0345 

ñ0 

03 


1.0 Y 

#*Ü3 


• .i 

0397 

80 

07 

03 

STfl 

*0307 


0347 

84 

98 


STY 

*98 



0390 

09 

DB 


LOR 

#*DB 


» 0349 

ñ0 

06 

90 

LO0 

*9006 


• .t 

0390 

85 

97 


STfl 

*97 


034C 

09 

20 


CMP 

#*20 


• y 

039E 

09 

03 


LDfl 

#*03 

9 .9 

034E 

B0 

02 


BCS 

*0352 


■ ; 

0300 

85 

98 


STfl 

*98 

• J 

0350 

R9 

20 


LDfl 

#*20 


* .• 

0302 

B1 

97 


LDfl 

< *97 >,V 


0352 

09 

78 


CMP 

#*78 


■ .• 

0304 

80 

06 

03 

STfl 

*031 >6 

9 J 

0354 

90 

09 


BCC 

*02FF 


• .* 

0307 

00 

06 

03 

LDfl 

*0306 

• J 

0356 

77 






• y 

0300 

40 



LSR 



0357 

38 



SF 0 



9 y 

030B 

40 



LSP 


■ J 

0358 

E9 

20 


SBC 

#*20 


9 .1 

0300 

80 

08 

03 

STfl 

*8308 

• J 

035R 

00 

DB 


LO Y 

#*DB 


« • 

03 RF 

00 

07 

03 

LDfl 

*0307 

9 .1 

035C 

84 

97 


STY 

*97 


• y 

03B2 

40 



LSP 


• .9 

035E 

20 

B3 

03 

•JSR 

*03 B 3 


9 y 

03B3 

40 



Lv;R 


■ .f 

0361 

05 

97 


LDñ 

*97 


• t 

©3B4 

80 

09 

03 

STfl 

*0309 

• .9 

0363 

18 



CLC 



m y 

03B7 

60 



PTS 



0364 

6Í> 

Dfl 

85 

RDC 

*8500 


9 y 

03 B 8 

8E 

06 

03 

STX 

*0306 


0367 

97 



7'? 7 



9 y 

03 BB 

RC 

06 

03 

LO Y 

*031 >6 

■ J 

0368 

90 

02 


BCC 

*0360 


■ > 

03 BE 


00 


CP Y 

#*00 

m • 

0368 

E6 

98 


t HC 

*98 


9 y 

0300 

*F0 

16 


BE© 

*0308 

• .# 

036u 

RD 

07 

90 

LOA 

*9007 


• y 

0302 

88 



DE Y 


• f 

036F 

09 

18 


CMP 

#*13 


m y 

0303 

01 

97 


CMP 

< *97 >, Y 

• .1 

0371 

B0 

02 


BCS 

*0375 


9 y 

0305 

C8 



INY 


• .9 

0373 

09 

18 


LDR 

#*18 


9 .1 

0306 

B0 

10 


BCS 

*0308 

9 J 

0375 

09 

74 


CMP 

#*74 


• .• 

0308 

88 



DEY 



0377 

90 

02 


BCC 

*037B 


• .« 

03C9 

80 

06 

03 

STfl 

*0306 

m y 

0379 

09 

73 


LDR 

#*73 


• • 

0300 

B1 

97 


LDfl 

< *97 > , Y 

9 J 

037B 

38 



SEC 



• .• 

03CE 

03f;F 

08 

91 

97 


INY 

STfl 

<: «97 :> , y 

9 J 

037C 

E9 

18 


SBC 

#*18 


■ J 

m • 

0301 

88 



DEY 


■ J 

037E 

20 

B3 

03 

JSR 

*«3B3 


• y 

0302 

~ 00 

06 

03 

1. DR 

*0306 

9 J 

0301 

E8 



INX 



m y 

0305 

38 



SEC 


9 J 

0382 

E0 

0 0 

03 

CPX 

*03DR 


■ y 

0306 

B0 

E6 


BCS 

*83 BE 

m y 

0385 

F0 

09 


BE© 

*0390 


m y 

0308 

91 

97 


STfl 

<*97>, Y 

• « 

0387 

05 

02 


LDñ 

*02 


■ y 

0300 

60 



RTS 



Figura 14. Listado del desensamblado de la subrutina en código máquina. 
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__ CONCURSO MENSUAL DE COMMODORE MAGAZINE _ 

Su Programa Para Cualquier 

Sistema Commodore 
Puede Hacerle Ganar 5.000 Ptas. 


E l presente 

CONCURSO ESTA 
ABIERTO A TODOS 
NUESTROS LECTORES 
Y SU PARTICIPACION 
E INSCRIPCION ES 
GRATUITA. 

LEA LAS BASES DEL 
CONCURSO 


■ NO SE ESTABLECEN LIMITACIONES 
EN CUANTO A EXTENSION. TEMA ELEGIDO 
O MODELO DE ORDENADOR 


■ LOS CONCURSANTES DEBERAN 
ENVIARNOS A LA DIRECCION QUE FIGURA 
AL PIE. EL CASSETTE O DISKETTE 
CONTENIENDO EL PROGRAMA. UNA 
EXPLICACION DEL MISMO V. 

AL SER POSIBLE. UN LISTADO EN PAPEL 
DE IMPRESORA. SE PODRAN ENVIAR 
TANTOS PROGRAMAS COMO SE DESEE 

■ LOS PROGRAMAS. PREVIA SELECCION. 
SERAN PUBLICADOS EN LA REVISTA. 
OBTENIENDO TODOS ELLOS f>.()()() PTAS. 


■ LA DECISION SOBRE LA PUBLICACION 
O NO DE UN PROGRAMA CORRESPONDE 
UNICAMENTE AL .JURADO NOMBRADO 
AL EFECTO POR “COMMODORE MAGAZINE” 
SIENDO SU FALLO INAPELABLE 


■ LOS CRITERIOS DE SELECCION 

SE BASARAN EN LA CREATIVIDAD DEL 

TEMA ELEGIDO Y LA ORIGINALIDAD 

Y/O SENCILLEZ EN EL 

METODO DE PROGRAMACION GLOBAL 


■ ENVIAR A: 

CONCURSO COMMODORE MAGAZINE 



nmodore 

M¿Lgjaz±njQ_ 


C/Bravo Murillo, 377. 28002-Madrid - 



















Ampliación de memoria 


Es posible dotar al Vic-20 de una 
capacidad de memoria superior a los 
5 Kbytes de RAM con los que viene 
de fábrica. Para ello Commodore ha 
dispuesto en la parte posterior de la 
máquina un slot de expansión del 
sistema. 

Existen una serie de cartuchos de 
ampliación de la memoria central, 
enchufadles en el slot antes aludido. 
Sus principales fuentes de proceden¬ 
cia son el propio fabricante de la 
marca o terceros. 

En el presente artículo presentamos 
un circuito de ampliación de RAM, 
que proporciona al Vic-20 otros 3 
Kbytes adicionales. Son de agradecer, 
puesto que la máquina viene con sólo 
5 Kbytes de RAM, de los cuales sólo 
3,5 K son utilizables por el usuario. 
Su distribución e s 1 a s 1 1 . u i c n t c. 
Kbyte situado entre las direcciones 
$0000 y S03FF (hexadecimales) y los 
siguientes 4 Kbytes se distribuyen 
entre las $1000 y $1FFF, pero hay 
una zona de 3 K, situada entre las 
$0400 y $0FFF, que no tiene nada 
asignado. 

Es posible aprovechar una ventaja 
de diseño que tiene el Vic-20 para 
poder direccionar bloques de memo¬ 
ria de 1 Kbyte cada uno. Existe una 
señal llamada CS en los chips de 
memoria, que responde al nombre de 
Chip Select (selección de un deter¬ 
minado chip). Cuando esta señal es 
un cero lógico, el microprocesador se 
está dirigiendo a ese chip en particular 
y no a otro. En el slot de expansión 
del ordenador existen 3 señales, eti¬ 
quetadas cada una como RAM1, 
RAM2 y RAM3, correspondientes a 
las patillas 14, 15 y 16 respectivamen¬ 
te. En realidad se trata de señales 
aplicables directamente al Chip Select 
del módulo de memoria. Simplemen¬ 
te con estas 3 señales es posible 
ampliar la memoria del Vic-20 hasta 8 
Kbytes más, sin necesidad de realizar 
ninguna decodificación. 


El circuito 

Los chips adoptados para este 
montaje son de corriente utilización 
en diversos modelos v marcas de 
ordenador. Estamos refiriéndonos al 
2114, que además es el que utiliza el 



Figura 1. Esquema teórico del circuito. 



H < 

Figura 2. Cara inferior del circuito impreso. Los trazos discon¬ 
tinuos representan los puentes de hilo metálico. 
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Figura 3. Cara superior del circuito impreso (vista desde el lado 
de los componentes). Los trazos discontinuos son los puentes 
que se realizan después con hilo metálico. 
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Figura 4. Slot de expansión del Vic-20 con su tabla de corres¬ 
pondencias. 


Vic-20, en su memoria interna. Con la 
ayuda de unos cuantos de estos chips 
y las señales RAM1, RAM2 y RAM3 
obtenemos la expansión. 

Por su diseño interno, el 2114 
puede almacenar hasta 1024 nibbles , 
que no son ni más ni menos que 
medio byte cada uno o, si lo preferi¬ 
mos, 4 bits. Son memorias estáticas 
(por contra de dinámicas) de bajo 
consumo. El chip va encapsulado en 
una pastilla tipo DIL (doble hilera de 
patillas) con 18 terminales, que se 
distribuyen como sigue: AO a A9 (diez 
patillas), son líneas de direcciona- 
miento. Los datos leídos o escritos de 
la memoria lo son a partir de las 
patillas DO a D3, llamadas de datos, 
siendo 4 en este caso. La patilla R/W 
hace saber al chip si el microproce¬ 
sador quiere leer datos a partir de la 
memoria o depositarlos en ella 
(cuando está a cero lógico). 

Un byte está compuesto por dos 
nibbles, por tanto necesitamos dos 
chips capaces de almacenas 1024 nib¬ 
bles para obtener 1 Kbyte de almace¬ 
namiento. Los chips van emparejados 
dos a dos, por tanto seis proporcio¬ 
nan los 3 Kbytes de memoria reque¬ 
ridos. 

Si observamos el esquema teórico, 
las patillas CS de cada dos chips van 
unidas entre sí y a las salidas RAM1, 
RAM2 y RAM3 respectivamente. Las 
líneas de datos de cada uno de los 
grupos de dos van conectadas alter¬ 
nativamente al nibble más significa¬ 
tivo y al menos significativo del bus 
de datos del ordenador. 

Las patillas R/W (lectura/escritu¬ 
ra) de todos los chips están unidas 
entre sí, pues sólo estarán activos en 
un momento dado los que tengan 
activado su CS, ignorando el resto 
cualquier otro tipo de señal mientras 
tanto. 

Los chips de memoria reciben su 
alimentación desde el Vic-20, a través 
de los terminales +5V y Groünd 
(masa). 

Montaje 

De acuerdo con el esquema de la 
figura 1, en las figuras 2 y 3 aparece el 
diseño del circuito impreso corres¬ 
pondiente. Se trata por tanto de un 
circuito impreso de doble cara. 
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Figura 5. Diagrama de patillas de 
una RAM estática 2114. 

Cuando se ha terminado de pre¬ 
parar la tarjeta de circuito impreso, es 
importante efectuar los puentes de 
hilo necesarios para asegurar algunas 
conexiones eléctricas. En las figuras 
van indicados por trazos disconti¬ 
nuos. 

El siguiente paso consiste en inser¬ 
tar y conectar las patillas de los 
zócalos que soportarán a los chips. En 
este tipo de montaje es altamente 
recomendable utilizarlos, pues de 
otro modo es bastante probable que 
los resulten dañados durante el pro¬ 
ceso de la soldadura, a no ser que uno 
conozca la técnica adecuada. Habrá 
que tomar la precaución de que las 
patillas sean soldadas por ambas 
pistas de la tarjeta. 

Por último se soldarán los conden¬ 
sadores de desacoplo, que si bien no 
son de utilización obligatoria si son 
muy recomendables. Igualmente ha¬ 
brá que tener cuidado de no insertar 
los chips en posición errónea. 

Si los puentes han sido bien puestos 
y las soldaduras efectuadas correcta¬ 
mente, el montaje trabajará perfec¬ 
tamente desde el principio sin nece¬ 
sidad de ajustes. 



Figura 6. Vista general de la placa terminada. 
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GUIA PRACTICA 


DEFOREST 

MICROINFORMATICA 


TODO SOBRE COMMODORE - 64 Y VIC - 20 

LOS ULTIMOS JUEGOS EN EL MERCADO 
TODO EN PERIFERICOS - LIBROS 
PROGRAMAS DE GESTION - ETC. 

SOLICITE INFORMACION POR CORREO 


BARCELONA-15 

C/ Viladomat, 105. Tel. 223 72 29 
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DE LOS MEJORES ORDENADORES 

COMMODORE 64 
ZXSPECTRUM 

Microdrive e interface 
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UNA LLAMADA TELEFONICA LE 
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• Periféricos 
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• Libros y revistas 

• Recompramos 

tu ordenador como 
entrada de otro 
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• Cursillos de BASIC 
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C 1 commodore 

¿QUIERE AHORRAR 95.000 ptas.? 

No necesita comprar una unidad 
de discos, nuestro cartucho 
FAST-TURBO-MENU, transfor¬ 
mará su Datasette en un lector de 
programas un 10 % más rápido 
que la unidad de discos. 

En una cinta de C-60 puede tener 
hasta diez programas, con lo que 
también se ahorra, al usar menos 
cintas. 

1. CHOPLIFTER 4. BUSICALC 

2. MONOPOLY 5. 

3. SUPERBASIC 6. 

Sólo tiene que pulsar el n.° del 
programa que quiera leer y el 
Datasette lo localizará y leerá con 
gran rapidez. 

8.500 ptas. 

ASTOC-DATA 

Hardware y Software-Systems 
Sarela de Abajo 

Santiago de Compostela Tel. 981 - 59 95 33 






































Por una serie de desafortunadas 
circustancuas, tu nave, averiada y sin 
apenas combustible, ya no puede 
regresar a la tierra. El fin es seguro, 
pero no importa, lo importante es, 
antes de que llegue el momento, 
acabar con el mayor número de 
marcianitos posible. Por todo ello has 
decidido embarcarte en esta “misión 
suicida" mientras funcionen tus misi¬ 
les y hasta que no quede ni una gota 
de combustible. Los marcianitos no 
van a faltar. Intentarán destruirte con 
sus disparos que debes evitar. Sólo en 
el caso de que te vayan a acertar sin 
remedio debes utilizar la coraza de 
protección de que dispones, ya que 


consume mucho combustible. La can¬ 
tidad que te queda de éste, podrás 
verla en un indicador en la parte 
derecha de la pantalla. Cuando ter¬ 
mines todo habrá acabado. 

Los controles de tu nave, todavía 
en buen estado, son: 

W = Arriba 
X — Abajo 
A = Izquierda 
D = Derecha 
S ^Misiles 

Espacio = Coraza de protección 
La suerte está echada, sólo te 
queda el consuelo de acabar* habién¬ 
dote llevado por delante el mayor 
número de marcianitos posible, y ten 


por seguro cue :us hazañas serán 
recordadas por mucho tiempo allá 
abajo, en tu rianetu natal, la tierra. 

Lo que sigue es una lista de las 
variables utilizadas por el programa 
que pueden, sen:: r~ra posibles modi¬ 
ficaciones que >e le ocurran al lector: 
PE = última tecla pulsada 
F = Fuel 

SX. SY = Posiciones horizontal v 
vertical de. misil del jugador 

P = Posición horizontal del jugador 
YP = Po>:c:ór. vertical del jugador 
X. Y = Posiciones horizontal y 
vertical del enemigo 

EX. EY = Posiciones horizontal y 
vertical del misil enemigo 
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v-53248 10=54272 


10 REM 

15 REM * MISION SUICIDA * 

20 REM * * 

25 REM * CÜMMODGRE MAGAZINE * 

30 rem ********************** 

35 PÜKE55,255 : P0KE56,47:PRINT" ¡T =PÜKE53281,0:PÜKE53280,0 
40 SM=0•FORJa11030 : I=RND< 0*1000+55296:POKE1,1-POKEI~Cü,46:NE, T 
43 POKEV+21, 31 • PÜKE2640, 192 • POKE2041, 193 : P0KE2042, 194 •' POKE2043, 195 F " * -2044, 196 
50 PÜKEV+39,8:POKEV+40,3•POKEV+41,7:POKEV+42,10:POKEV+43.5 

55 FORI=010318 * REABQ:POKE12288+1,Q:NEXT:P0KE54296,1:P0KE54278 240 FC*E54276,129 
P=120 : YF-200 ; POKEV,P : POKEV+1,VP : X-50+1NT(RNDC1>*180) : V=0:PC• E -2 pQKEV+3,V 

65 PE=PEEK(V+30> ; F-0 : P0KE54272,108 1 P0KE54273,223 
70 PR I NT" ^mnilHHI4PUNT0S : " : PÜKEV+4,200 
75 PR I NT" 

30 PE=PEEK< 1.97> • F=F+. 01 : PÜKEV+39,8 : IFHHO0THENFTIKEV+39, 12 

85. PR I NT" ^M^lVIlIHi 1 ', S 

90 P0KE55613+1NT(F >*40,4 

95 IFPE= 10FíNDP>50THENP=P-5: F=F+. 01 

100 IFPE=18ANDP<239THENP=P+5:F=F+.A1 

105 IFPE-9ANDVP>175THENYF-VP-5:F=F+.01 

110 IP PE=23fiNBYP<2S0THENYP=VP+5 ; F=F+- Al 

115 IFPE=13ANDSH=0THENGOSUE41O 

120 IFPE=60ANDHH=0THENHH=1 ; F=F+1 

125 IFSH=0THEN150 

130 FORI~1T02:SY=SY-SH : POKEV+5,SV 

135 1FPEEK<V+30>=6THENGOSUB305 

140 IFSV<68THEN3V=O:SH=0 ; SX-150:POKFV+5.m 

145 NEXT 

1 b0 IFHHñ y 0 1 P1EfíHH-HH+1 : IF HH — 1 tiTHENF1H=0 
155 F'OKEV, P: POKEV+1, VP: I FF> 15THEN260 

1 1 W ÍFR NI» '• 1 ) <i T H E N R N -1N T '• R N D < 1) * 3 - i •' IF R N - ü H N D R N D < 1 > < m 1T H E N 6 m 
165 IFX>239THENRN=-i 


56 
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DOOOOOOOOOOOOOOOOOOOOOOC 


170 X=X+RN#4•IFX<50THENRN=1 

175 V=V+4•IFV>235THENV=0•X=5@+1NT<RND<1> *180>:SM=SM+i 


188 
185 
130 
195 
200 


PÜKLV+2X : F’OKLV+3 , V 

* I FEV=0flNDRND < 1 > <. 1 ANDY<220THENEV=V+20 • EX=X •' PÜKEV+6, X : GÜSUB430 
IFEt-0THENGOTÜ80 

F ÜRI = 1TÜ2:EY=EY+6•PÜKEV+7,EY : POKEV+6,EX 
I FRND <1 > <. 2THENEX=EX+ < ( EX>P > - < EXCP > > *5 


20 w 


IFEX<35THENEX=35 
: 10 IF E X >238T H E N E X=2 3 8 


2 I !:• 


IF EY>235THENEY=0•EX=0•PÜKEV+7,EY:POKEV+6,EX:GÜTÜ80 


220 iFPEEK<V+30> =9flNDHH=0THEN335 
225 NEXT•IFPEEKíV+30> 012THEN80 

230 P0KE54273,0•P0KE54272,0 : P0KE54296,5 ; FORI-30TO1STEP-1:P0KE54273,I•NEXT 


“i "i !~ 

P0KE54296,1: =P0KE54273 

,223 : PÜKE54 

2 r 2 .• 1 08 


£40 

PÜKEV+5,0:POKEV+7,0:PÜK 

EV+8,EX : PÜK 

t fjry 


2 4 5 

FÜRI-1TO100 ; NEXT 




250 

EX=50 : EV=0 : SY=0 : SV=Ü •• SX 

=0 : SH=0 : PÜK 

EV+8, 0 : F’ÜKE 

:V+9,0 

255 

GOTO80 




2 6 £i 

GÜSUB375 


• 


265 

PRINT'^aiTE HfiS QUEDADO 

SIN ENERGIA 

! " 


270 

PRI NT 11 HKDaftñLñ SUERTE, 

AUNQUE HAS 

ñGUñHTñno r 

1UCHÜ!" 

275 

PR I NT M - 
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¡INCREIBLES TARJETAS 
PARA COMMODORE64 Y VIC-20 


DE 80 COLUMNAS 

LA TARJETA DE 64K ES LA PERFECTA COMBINACION PARA LA TARJETA DE 40/80 COLUMNAS: 

— Puede tíSLoger «ntre 22/40/b0 columnas y obtiene 31743 bytes libres!!! 

— El sotware del EPROM de la tarjeta le permite utilizar todos los comandos de ficheros (OPEN, CLOSE, PRINT, INPUT, GET. 
SAVE and LOAD) con los 31232 Bytes de Memoria «oculta», lo que produce la sensación de que hay 8 cassettes super rápidos 
conectarlos a su Vic-20 Imagínese... menos de 1 segundo para guardar 28 KM! 



Tarjeta VIC-20 40/80 columnas 


• Tarjeta COMMODORE 64 
80 columnas 


Tarjeta VIC-20 
Ampliación de memoria 
64 K- RAM 

Slots de expansión 
para VIC-20 y 64 
de 2 y 5 para conexión 
de tarjetas 



DISTRIBUIDORES PARA TODA ESPAÑA 


PEDIDOS 


FERPE -mOPET /.fl 


Tel. 93/ 250 84 40/ Contestador Aut. 
Escribir indicando la sección 
C/. Buenos Aires n.° 30 2 o 3 a . 
BARCELONA-36 




















































Viene de la página anterior 

288 PRINT"MMPflRfl JUGAR OTRA VEZ PULSA 1 " 

285 GETfif:IFA$=" 1 " TRÍEN RUN 
280 IFAí<>"1"THEN285 

305 P0KE54272,0:P0KE54296,10=FORI=50TO1STEP-1.5:P0KE54273.I:HEXT 
310 P0KE54296,1:P0KE54273,223:P0KE54272, 108 
315 POKEV+2,0: POKEV+3 , 0: POKEV+fi. X: POKEV+A. V 
320 S=S+10 : IFV-SVTHENS=S+40 
325 FORZ-1 TU100:HEXT:POKEV+ 8 , 0 :POKEV+ 9,0 
330 SH=@: SV=0 : SX=0: V=0 ; 'RETURN 
335 G0SUB375 

340 F’RINT'THAS SIDO ALCANZADO POR UN MISIL ENEMIGA i" 

345 PRINT"!«?»] MALA SUERTE" 

350 PRI NT " MSHPUNTOS : "S 

355 PRI NT "UNIDADES DE ENERGIA GASTADA" INT (F) 

368 PRINT"SUAVES ENEMIGAS NO ALCANZADAS"; 8 M 
365 PR INT" ílíBNO ESTA MAL!" 

370 GOT0275 

375 FORI = 1T07 : POKEV+1,0:NEXT 
380 P0KE54273,0:P0KE54272,0:P0KE54276.0 
385 P0KE54296 .• 15 •’ PGKE54276,129 
390 POKEV +8 .■ P: POKEV+9, VP 

395 F ORI=50TO1STEP- 1 :P0KE54273,I:NEXT:P0KE54273,0:P0KE54272.0:P 0 KE 54296.1 
400 POKEV+ 8 .. 0 • POKEV+9, 8 
405 RETURN 

413 PUKE 53280 .. 2 ; sH= 6 : SX-F 1; SV-VF’ : F’OKEV+4, SX : F=F + . 05 ; PÜKE53280.» 0 

415 P0KE54273 > 0 : P0KE54272 > 0 : P0KE54296.. 18 • FORI =0TO 150ATEP3: pAKE'54273 . I : NE y T 
420 P0KE54273.. 0 : P0KE54296 • 1 ' ' 

425 RETURN 

430 P0KE54273,0 : P0KE54272,0: P0KE54276.. 0 : P0KE54276,33 

ti 11 ? POKt 54273, 50 : FORZX=1TO50: NEXT • PÜKE54276, 129: P0KE54273,233 : P0KE54272.108 
44U RETURN 

44b -DHl HU 7 0 .• 0 7 07 8.. 00.. 28 7 07 0 7 28 7 @ 7 0 7 62 7 0 7 @ 7 127 7 0 7 8 7 127 7 8 7 8 7 127 7 8 7 8, 127 7 8 7 2 
45ü Dñ T Ñ127 7 82 7 8 7 88.. 32.. 7,28 7 1 í 2 7 2 7 62 7 32 7 6 7 255 7 i 76 7 7 7 235 7 240 7 7..235 7 248 7 i 5 7 255 
455 Dñ íÑ248 7 15 7 68 7 128 7 28 7 28 7 66,24 7 8 7 12 7 8 7 8 7 8.. 93 

4*® i307 0 7 64 7 1307 4-7 1 127 2147 207 1207 1547 687 1247 1247 1247 62.. 56.. 248.. 31,255 

4*8 1 •' -f'?-' J ^24 7 ? 7 255.. 132.. 1.. 255.. 8.. 8.. 254.. 8.. 12.188.. 36.. 6.- 108.. 132.. 7.. 255.. 132 

4^0 Dfi • Ñ3 •• 855.. i 83.. 1 7 255.. 8 .. 8 .«254.. 8 .. 8 .. 568.. 8 .. 16.. 8 .. 8 .. 16.. 8 .. 816.. 8 .. 33 

4 .• 5 Dfi 1 ñu 7 0 7 8 7 8 7 Ü 7 8 7 U 7 U 7 0 7 U 7 8 7 0.0,0 .. 00 0000,0 , 0,0,0,0,0,0,0,0 , y , 0,0,0,270 

480 DñTR32.. 7.. 6 7 112.. 15 7 i28 7 248 7 31.. 133252.. 26.- 132.. 172.. 18.. 65.. 36."2.. 8.. :-¡2 - 0.0.0 
485 DF¡ I hü.. 0.. 8.. 2.. 8 7 32 .< 33 
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Una serie de naves de no se sabe 
qué rincón de la galaxia están inten¬ 
tando aterrizar, una por una, preci¬ 
samente en la zona en la que tú estás 


de guardia a bordo de tu tanque 
destructor. Tu misión es, obviamente, 
destruir las naves antes de que pue¬ 
dan aterrizar, ya que si lo hacen 


CBM - 64 


soltarán su carga de seres de otros 
mundos antes de desaparecer de nue¬ 
vo en la negrura del espacio. Para 
destruirlas, tu tanque dispone de un 
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láser que podrás disparar cuantas 
veces quieras, con sólo pulsar la tecla 
“A/”. Para desplazar tu tanque por la 
superficie del terreno puedes emplear 
las teclas Z (para ir hacia la izquierda) 
y C (para ir hacia la derecha). Debes 
tener en cuenta, además, que las 
naves invasoras disponen de campos 
energéticos de protección que utili¬ 
zarán en determinados momentos. Si 


la nave aparece de color azul, signifi¬ 
ca que no tiene conectado su campo, 
por lo que puede ser derribada. Si por 
el contrario aparece de color rojo, ni 
el más certero disparo podrá ni si¬ 
quiera rayar la superficie metálica de 1 
nave. Aparte de este campo de pro¬ 
tección, las naves invasoras también 
disponen de un láser con el que 
intentarán destruirte: sus disparos 
son bastante certeros, v las únicas 


zonas un poco seguras son las esqui¬ 
nas de la pantalla. 

Las variables que utiliza el pro¬ 
grama para aquellos interesados en 
destriparlo o modificarlo son las si¬ 
guientes: 

P= Posición del tanque. 

A=Posición de los alienígenas (mar- 
cianitos). 

PE=Tecla pulsada. 

B=Posición de la bomba láser. 
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— DISCOSOFT-64 — 

Los mejores programas para su Commodore 64 en discos, al mejor precio 


DISCO # O - 5.000 pías. 

JUPMAN FUTBOL 

DISCO # 1 - 6.500 ptas. 

HOVER BOVVER SIMULADOR COLUMBIA VULTURES COMECOCOS 3D 
LABERINTO DE TRANSILVANIA FUTBOLIN 

DISCO n 2 - 6.500 ptas. 

FALCON PATROL MUNCH MAN (comecocos) ATERRIZAJE BATALLA ESPACIAL 
EL FRANCOTIRADOR SCUBA DIVE (el submarinista) 

DISCO # 3 - 7.000 ptas. 

REVENGE MUTANT CAMELS MANIO MINER HUNCHBACH PIPELINE 

DISCO # 4 - 7.000 ptas. 

HELL GATE PIT STOP JUICE MR WIMPY FROGGER AJEDREZ ARCADIA 

Disco # 5 - 7.000 ptas. 

SPIKE NAVATRON JAMMIN SKRAMBLE CRAZY KONG SKIER 

DISCO # 6 - 7.000 ptas. 

S MULADOR DE VUELO (F S.2) MANUAL EN CASTELLANO 

DISCO 4 7 - 6.000 ptas. 

-_~R-3ASIC (50 comandos gráficos y sonido) MANUAL EN CASTELLANO 


DISCO # 8 - 5.000 ptas. 


THE MASK OF THE SUN (aventura gráfica) 


DISCO n 9 - 5.000 ptas. 


KO AL APA INTER (dibu]OS con joystick) 


DISCO # 10 - 5.000 ptas 


3 PROGRAMAS DE MATEMATICAS PARA NIÑOS (gráficos) 


DISCO # 11 - 7.000 ptas. 


MOON BUGGY EL DICTADOR (castellano) COMECOCOS MISSILE COMAND 
JUMPMAN JUNIOR CHOFPLIFTER 


DISCO U 12 - 7.000 pías. 

POLE POSITION (carrera de coches) NIGHT MISSION (Pinball) DONKEY KONG LODERUNNER 


DISCO # 13 - 7.000 ptas. 


GUERRA DE LAS MALVINAS DESEMBARCO DE NORMANDIA SOLO FLIGHT 


DISCO # 14 - 7.000 ptas. 


ZEPPELIN (laberinto) ZAXXON (en 3 d) ZODIAC BLUE MAX 


LOS 15 DISCOS, 50.000 PTAS. 


Pedidos contra reembolso a: 

DISCOSOFT-64. Apartado 9068 (BARCELONA) (Programas garantizados sin gastos de envío) 
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SUSCRIBASE 
POR TELEFONO 

♦ más fácil, 

♦ más cómodo, 

♦ más rápido 


Telf. (91) 733 7969 

7 días por semana, 84 horas a su servicio 

SUSCRIBASE A 

commodore 

_ MjCLg¿Lz±rw_ 





























El malvado RAM te reta a un duelo 
a muerte sobre la superficie de su 
inhóspito planeta. Todo depende de ti 
ya que si aceptas su desafío tendrás 
que luchar con tu nave contra la suya, 
disparando tus misiles hasta que con¬ 
sigas alcanzarle y evitando al mismo 
tiempo sus disparos y las agudas 
crestas de los montes de la superficie 
del planeta, que destrozarán el casco 
de tu nave si no los evitas. Tanto tu 
nave como la del malvado RAM 
pueden moverse libremente por la 


pantalla. Tu controlarás el movimien¬ 
to de tu nave mediante las siguientes 
teclas: 

W = Arriba 
X = Abajo 
A ^Izquierda 
D = Derecha 

La nave de tu oponente viene 
controlada por el programa. 

Si cualquiera de las dos naves es 
alcanzada por un misil, quedará fuera 
de combate y se estrellará sin remedio 
contra la superficie del planeta. 


CBM 64 


Algunas de las variables utilizadas 
por el programa son: 

X, Y = Tu posición 

XI, Y1 ^Posición de tu adversario 
D = Tu dirección 

DI = Dirección de tu adversario 
SX = Posición de tu misil 
SD = Dirección de tu misil 
SZ = Posición del misil enemigo 
DZ = Dirección del misil enemigo 
Ahora, en tus manos está la elec¬ 
ción sobre si te enfrentas o no a este 
insolente adversario, en cualquier ca¬ 
so te deseamos buena/suerte. 
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10 rem 

15 REM * DUELO EN LfiS ESTRELLAS * 

20 REM * * 

25 REM * COMMODORE MflGfiZIHE * 

30 REM 
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SR v* 5324 « : POKE2040, 192: POKEV+39,14: POKE2041, 193 : POKE2042,194: P 0 KE 2 W 4.-8 194 
55 POKÉ2044,195 : POKEV+40,5:POKEV+43,0 : POKEV+28,31 ; POKEV+37,2 : PUKEV+38 > < _ 

Ix ¿0 FÓRI =010254 : REfiDQ : F'OKE 12288+1, Q : NEXT : POKEV+21,31 ; POKEV+29, 19 : F'üKEV, 100 
65 POKEV+2,200 : POKEV+4, 50 : F'OKEV+6,230 : POKEV+ 8 , 165. 

— 1 |~^ |“| l“- | j Jjl •—I t~i Pj 

75 pE=PEEK l V+30> : PE-PEEK< V+31 > : X-100 : V=60 : D=4 : X1 =200 •VI= 120 : D1=-4 

m PR I NT " I¡SrTOi■ IF ^•»**P r ****F r 

85 pr i nt " a r r 

90 PR INT" Sü ^ ^ ""•WT 

35 PRINT"3 ▼ 

100 FORI =56256T056235 • F’OKEI-C0, 160 • POKEL9 : NEXT 
x 105 FfiR I =56256+TñTü55837+TñSTEP-33 : POKE I -CÜ .• 233 ; F’OKE 1,5 : NEXT 
1 í 0 FOR I =56278+THT05583 7+T fiSTEF’-41 : POKE I~CÜ,223 : POKE 1,5 ; NEXT _ 

115 FORI = 0 TO 1 0 : FORJ=56257-1 *40+1+TRT056277-1*40-1+TR : F’UKE J-LU .• 1 bU • PURE J . -■ • NE.-.T 

120 NEXT ___ 

125 IFRND < 1 ><“. 05ORPEEK(V+30) =2THEND 1 =~D 1 • P0KE542 1 o, 10 
130 X 1 =X 1 +D 1 : I FRND < IX- 1THENV1 =V 1 + < < í 1 > 1 > - < V1 <V > > *4: GOT0140 
Ix135 V1=V 1 + <INT <RND<1> *3) -1)*4 
14ü IFX1<10RNBD1=~4THENX1=320 
145 IFX1>320flNDB1=4THENX1=0 
150 IFV1C60THENV1-60 
155 IFV1>200THENV1=200 

160 I FRND ( 1 > >. 20RV1 <Y-10RNDV1 >V+10RNDRND < 1 > < - 30ORÜ2O0UR* 1 ->2U0 
165 S2=X 1 + < D1 *5 > • D2=D 1 *3 '• IFD1 =4THENS2=S2+30 : P0KEV+7, V1 
170 FGRI =50TO0STEP-2 : PÜKE54273, I : NEXT -.P0KE54273,0 
175 IFD1«-4THENPÜKE2041,193 

180 I FD 1 = 4THENP0KE2041,132 _. _ T _ . „ 

-185 POKE V+3 , V1 • I FX 1 >255THENP0KEV+2, X1 -256 : POKE V +16, F'EEKV+1 6 > UR¡¿ : üUTU 19o 
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Viene de la página anterior 


190 
195 
200 
205 
-210 
215 
220 


26 0 

vQc: 


¿160 


265 
270 


280 

285 

290 


OüCj 
ci. J7 • J 


300 

305 


330 

Z* * J C. 

O ,jl 

340 
345 
350 
3 55 
360 
66o 
370 
375 
386 
385 
390 
395 
400 
405 
418 


435 

440 

445 

450 


POKEV+2 , X1 : PÜKEV+16, PEEK < V+16 > AND253 

IFPEEK(V+30 >=3THEN340 

F'E-PEEKC 197) : IFPEEK<V+30)«6THEN360 

IF F E=9 A N D V > 6 0 T H E N ’t - Y - 4 : P0KE54273,200 

I FF'E=23THENV-V+4: P0KE54273,200 

IFPE-10THEND=-4:P0KE54273,10 

I FF’E> 18THEND=4 : P0KE542 73 , 1 0 

I FREO 13 0 R S X < > 0 0 R X >200T H E N 2 40 

SX=X+(D#5)=POKEV+5,V : SD=D*3:IFD=4THENSX=SX+30 

FORI =50TO0STEP-2 : P0KE54273.. I : NEXT : P0KE54273 ■ 0 

X—X+D : IFD=4THENPOKE2040.. 192 

I FD=-4THEHP0KE2040 , 193 

IFX<10flNDD=-4THENX=320 

IFX>320flNDD*4THEHX=0 

P0KE54273,0■' POKEV+ .1, V: I FX>255THENPQKEV , X-256 ; POKEV+16 , PEEK < V+16 ) OR1: GOTO270 
POKEV .■ X : POKEV+16, PEEK < V+16) ANB254 
IP PEEK (V+300 =3THEN340 
IFPEEK<V+30>-9THEN340 
IFPEEK CV+31)-1THEH340 
IFSX=0THEN310 

IFSX< 10ORSX>310THENSX®0 : SD=0 : POKEV+5.. 0 : F'OKEV+4,50 

SX=SX+SD • 1P 3X>255THEHF'ÜKEV+4, SX-25S : PÜKEV+1 6 , F'EEK ( V+16 >ÜF'4 •' 0010305 

F’OKEV+4, SX: POKEV+16, PEEK 'i V+16 >ñND251 

IP PEEK(V+30)-6THEN360 

IFS2=0THEN125 

IFS2< 10ORS2>310THENS2-0 ■' H2=0: POKEV+7, 0 • PÜKEV+6,230 

3L-S2+D2 : IP 32>255THENF’0KEV+682-256 : POKEV+16, PEEK C V+16) ORS ; GOTO330 

POKEV +6 .• 82: POKEV+16, PEEK (V+16 > ANB247 

IFPEEK <V+30)=9THEH340 

GOTO125 

POKEV+60 : POKEV+7,0: PORI=VTO200: POKEV+1. 1 : P0KE54273. I 
FORJ—1TOS:NEXT:NEXT : P0KE54273,0 
FORI=1T07:POKEV+1,0:NEXT 
GOTO480 

F'OKEV+4,0 : POKEV+5,0 : FORI=V1TO208: POKEV+3, 1 : P0KE54273, I 
FORJ-1TOS:NEXT=NEXT:P0KE54273,0 
FORI-1T07:POKEV+I,0:NEXT 
GOTO530 

PRINT"Í3SIII II III I ■DUELO EN LñS ESTRELLASSI I I I I i l"J 
FOR1=1TO11 

F'RINT" I I I I I I II I I I I I I I I I I I I I I I I I I I I I I | | | | | | | | | |": 

NEXT 

POKEV+tí, 165 • POKEV+9, i 00 

F'RINT" IH SOV RAM DEL PLANETA BVTE. TE HE ELEGIDO A TI PARA QUE" fl l") 

F'RINT” 1DEFIENDAS TU PLANETA." - G 

F'RINT" SVQ TE DESAFIO Fl LUCHAR I " 

F'RINT "ACEPTAS? S/M" + QUeeio*) 

GETFlí : I FA*= " N " THEN F'R INT " SCÜBARDE" : END 
IFA$<>"S"THEN425 

F'RINT" EL ENFRENTAMIENTO TENDRA LUGAR AL" +> A 
F'RINT "NORTE DEL PLANETA MARTE’J + 2 . 

F'RINT" SIiEEU ADVERTIRTE QUE SOLO UNO DE TUS DISPAROS Pl IEDE DESTUIPME " 
F'RI NT" ■ TU PUEDES ESTRELLARTE ! " + 7 . ^ 1 L1 hnb ’ 
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455 

460 

465 

470 

475 

480 

485 

480 

495 

500 

505 

510 

ir 

•J 1 • J 

520 

525 

530 

535 

540 

545 

550 

555 

560 

565 


RETARME? S/N 


.~i ( 0 

575 
580 
585 
590 
595 
600 
605 
610 
615 


O u.. J 


630 

635 

640 


650 


PRINT"3(8 PULSA 'ESPACIO'' CUANDO ESTES PREPARADO." 

GETA$ • IFAÍO" "THEN460 
PRINT'Tl" : POKEV+9, 0 
P0KE53281 , 0 ; POKE53280, O 
RETURH 

POKE53280,4:P0KE53231,4:PRINT"¡T:P0KE54273,0 

PRINT"S3"; : FORI=1TO12 . 

F’RINT"IIII I I I I I I I I I I I I I I I I I I I M I I I I I I I I I II I I I I , 

NEXT í Tfcciak) 

PR I NT" «ADI OS MORTAL. LUCHASTE BI EN" 

PRINT "WWW ALGUN OTRO HUMANO SE ATREVE A 
CETA*:IFAÍ="S"THENG0SUB465 : GOT 075 
I FRÍ O " N " THEH510 

F'RINT"■MUV BIEN, LA TIERRA PRONTO SERA MIA!" 

POKEV+23,16:P0KE53288,4:P0KE532S1,4=POKEV+8,150 : POKEV+9,100 ; P0KE54273,0 
P0KE54296,0:PQKE54296,15 : P0KE54276,0 : P0KE54276,17 
F'RI NT" atartíMSMsMflKMfiíMíESTOV HERI DO TERRICOLA! " 

FfiR I = 1TO200 • P0KE54273,1 = NEXT : POKEV+9,0 : FORI = 100TO1STEP-. 5 
P0KE54273,I : NEXT:FORI=10TO50STEP.5 

P0KE54273,I:NEXT ; F'OKEV+23,0:POKEV+29,0•POKEV+8,150 ; POKEV+9,100 

FOR 1 = 1 TO50STEF’. 5: P0KE54273, I •' NEXT : POKEV+8,0: POKEV+9,0: FORI=20TUlSTEP-. 2 

P0KE54273,I:NEXT = P0KE54273,0 

PRINT"■SABIOS!!M" 

GETAf : FOR I = 1TO5000 : NEXT : F'R I NT " ¡T . 

GOTO70 

END .. ............ 

DATA0,0,0,0,0,0,0,0 , 0,0,0,0,0,0,0,3,0,0,3,0,0,3,192,0,3 ,192, ti, 19,24ü, ü 

DATA7,176,0,67,247,128,7,183,32,83,247,245,2,166,245,2,248,0 

DATA0,0,0,0,0, 0,0,0,0, 0,0,0 , 0,0,0,99 - 

DATA0,0,0, 0, 0,0,0,0', 0,0, 0,0,0, 0,0,0,0,192,0, 0, 192,0,3,192,0,8, 198, 0, 1 -•, 19b 

DATA8,14,208,2,223,193,8,222,208,95,223,197,95,218,128,0,15,128,0,tí,0,0,0 

DATA0,0,0,0,8,0,0,0,0,0,0,0,0,0,99 _ . ______ 

pf|7F||7l, Pí , p|. 0,0.0,0, 0,0,0, 0, 0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,4, tí 
DATA0,21,0,0, 127,64,0,21,0,0,4,0, 0,0,0,0, 0/0, 0,0,0, 0,0,0,0, 0U 0, 0,_0, 99_ 
DATA60,0,60,12,170,48,15,170,240,14,170,176,2,130,128,2,0,128,2,68,128 
DATA10,60,160•10■0,160,10,0,160,8,0,32,8,170,32,8,150,32,8,150,32,88,1<tí 
DATA37,88,0,37,90,0,165,21,170,84,21,130,84,5,170,80,5,170,80 
PE=PEEK< 197>I FREO 1THENRETURN 
GOTO650 
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No olvidéis nuestra dirección: 


C/ Bravo Murillo, 377. 5.° A. 

28020.-Madrid 


ENCUESTA 


Como podréis suponer, nuestra máxima ambición 
sería conoceros a todos personalmente, saber vues¬ 
tro interés y ambiciones informáticos. Pero desgra¬ 
ciadamente eso no es posible más que en casos 
contados. 

De momento sabemos que la revista en grandes 
líneas os gusta. Eso es lo que demostráis mes a mes 
en los kioskos y con las tarjetas de suscripción. 

No obstante es factible tener un conocimiento 
amplio de vuestras demandas, por un medio frío 
pero práctico: la antipática encuesta. Queremos 
conocer vuestras opiniones, qué ordenador tenéis, 
etc. Con ese mayor conocimiento confiamos en ir 
mejorando cada día los contenidos de Commodore 
Magazine. Os pedimos que seáis tan amables de 
tomaros esta pequeña molestia, estamos seguros que 
su fruto lo notaréis en breve. Somos conscientes de 
que todo esfuerzo, por pequeño que sea, debe llevar 
emparejada una compensación. Quinientas cintas de 
cassette sorteadas entre todos los que respondan nos 
parece un estímulo interesante. Así que ¡ánimo! 


I) ¿Tiene o r den ador? 

a) VIC-20 . □ 

b) C-64 . □ 

c) Otro . □ 

Díganos su marca ..*. 


b) Artículos de divulgación . □ 

c) Temas técnicos . □ 

d) Cartas al director . □ 

d) Otros . 


2 ) 

a) 

b) 

c) 

d) 

2 ) 

a) 

b) 

c) 

4) 

a) 

b) 

c) 

5) 

a) 

b) 

c) 

6 ) 

a) 

b) 

c) 


¿Dónde adquirió su ordenador? 

Grandes almacenes . □ 


8) ¿Qué le gustaría encontrar en Commodore Ma- 
gazine? 


¿Para qué utiliza su ordenador? 


¿Desde cuándo posee su ordenador? 

Más de 1 año . 

Más de seis meses .. ... 

Más de 1 mes .r. 

¿Cuándo lo utiliza? 

Todos los días . 

Fin de semana . □ 

Ocasionalmente . □ 

¿Con qué frecuencia lee Commodore Maga zinc'? 

Todos los números . □ 

Ocasionalmente . □ 

Soy suscriptor . □ 


□ 

a) 

* 


□ 

□ 

b) 

c) . 

• 




□ 

9) 

¿En qué estrato de edad se encuentra'? 


□ 


□ 

a) 

Menor de 13 . 

n 

b) 

Entre 13 v 18 . 

n 


c) 

Entre 18 v 25 . 


□ 

□ 

d) 

Fntre 25 y 50 . 

n 

e) 

Más de 50 . 


□ 

10) 

¿Cuál es su ocupación habitual? 


□ 





¡I) Añada aquí sus comentarios 


C) Indique un orden de preferencia entre los temas 
de la revista: 

a) Programas . □ 
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Famaño real: 19,5 x 26,5 
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SLOGAN 





CUANDO SE TIENE UN COMMODORE 64 

ES MUY DIFICIL SER MODESTO 


Cuando se tiene un ordenador personal 
con 64K de memoria, una magnífica resolución, 

16 colores, efectos tridimensionales 
con "sprites", un sonido equivalente 
al de un sintetizador, un teclado profesional 
con 62 caracteres gráficos, 
toda una amplia gama de periféricos 
profesionales, la más completa serie 



de programas educativos, profesionales 
y de video-juegos...; en resumen, cuando se 
tiene un ordenador personal como no existe 
ningún otro en el mercado y el más vendido 
mundialmente, cuando se tiene 

el Commodore 64, es muy difícil mostrarlo 
sin que el orgullo se te note. 


ELORDENADOR PERSONAL DE LA FAMILIA MAS POTENTE 

- Sistemas de gestión profesionales series 8000 Y 700. - Ordenador portátil SX 64. 

- Ordenador personal COMMODORE 64. - Ordenador familiar VIC 20. 



commodore 

COMPUTER 


MICROELECTRONICA Y CONTROL, S.A. 
c/ Taquígrafo Serra, 7, 5 “ BARCELONA-29 c/ Princesa, 47, 3.° G MADRID-8 

























